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The Purpose of This Book 

Traditionally, home computers, when first purchased, have been used as 
interesting but expensive game-playing devices. That they have not been 
more frequently put to a more serious purpose stemmed from the lack 
of a readily available, comprehensive set of home application programs 
that were easy to use and understand and that satisfied the practical re- 
quirements of the home. The objective of this book is to provide a set 
of programs that will make your computer start paying for itself the 
moment it crosses your threshold. The programs provide a good cross 
section of practical applications that will make your computer benefi- 
cial to all family members. The applications have been designed so as 
not to rely upon the availability of tape or disk-storage devices or upon 
any other features that may not be easily come by. As you gain 
familiarity with computer use, moreover, modification of these pro- 
grams to utilize features of your particular machine should present few 
difficulties. 

The Book's Format 

The computer applications given here have been formatted in a way 
that I hope will be of greatest value to you. Each application has been 
supplied with detailed information/documentation in the following 
form: 

1. A narrative description of the application includes a brief explana- 
tion of the program's functions, data entry procedures, data 
formats, output descriptions, and suggested enhancements or com- 
ments, when appropriate. 

2. A complete listing of the program is provided with remarks and 
data necessary for initialization. All line numbers have been in- 
cremented by ten (10) to insure ease of data entry and extension 
or modification. 

3. A listing of sample data used for the example run illustrates the 
form of data entry and the results it produces. 

4. Examples of outputs from the program using the sample data are 
shown. Whenever possible, the various optional outputs of the pro- 
gram are all shown. 

5. All major variable names (symbols) used by the program are ex- 
plained. In addition, all features of the program that may not be 
available in the tiniest versions of BASIC are listed and explained. 
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Entering/Interpreting the Programs 

The programming approach decided upon for this book is meant to 
facilitate your ease of program interpretation and extension or modifi- 
cation. It does not take advantage of many language facilities that 
minimize program length or processing speed. Concise, highly efficient 
routines have been avoided as a rule because they generally result in a 
lack of interpretive clarity and the modularity necessary to facilitate 
modification and change. REMark statements have been used liberally 
to assist you in mterpretation of the program's operation. 

Initially, the programs should be entered and tested exactly as 
they are shown. As you gain familiarity with your machine and its 
language, you may wish to take advantage of its various memory and 
time-saving featureis, such as (1) eliminating extraneous spaces in the 
instructions, (2) variable dimensioning of arrays and FOR loops, and 
(3) placing multiple statements on a line (when clarity is not affected). 
Once a program has been entered, it should be thoroughly tested to 
insure your understanding of the data formats and the machine accept- 
ability of all program instructions. 

About n BASIC and the TI-99/4A Home Computer 

n BASIQ which is the residence console BASIC language of the TI-99/4A 
home computer, is as powerful as any other versions of BASIC language 
available for other personal/home computers. It can handle most program- 
ming needs which may arise. However, due to its screen display size, which 
is 24 rows deep by 28 columns wide, some programs in this book have been 
designed for printer's output rather than screen output. Such programs are 
those that require an 80-column display; they are indicated as such in 
the programs. 

This TI conversion was done by Mr. Rigas Papagolos, President of 99/4 
Tri-State Users Group, Lincoln, Rhode Island. 
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CHECK BOOK BALANCE 



Description 

This program allows your computer to assist you in that onerous 
monthly task of balancing your checkbook against your bank statement. 
It allows you to enter deposits and checks outstanding to insure that all 
items are included in your balance. All required data is entered at the 
keyboard in response to program prompting. 

Functions of the Program 

The program first initializes the data for balances, deposits outstanding, 
and checks outstanding. As these items are entered, their total is accu- 
mulated. Following ±e completion of all required entries, the results 
are printed, and the final lines of output show the comparison between 
the bank's figures and your own. 

Instructions for Use 

Run the program and respond to the questions asked. You will need 
your bank statement and your checkbook stubs. 

Data Entry 

All data is entered in response to program prompting. 
Output Description 

See example output. The form of the output is similar to that provided 
for your use on the reverse of most bank statements. 

Conunents 

The program will accept up to 20 deposits outstanding and 100 checks 
outstanding. 



10 CALL CLEAR 

20 REM CHECKBOOK BALANCING PROGRAM 

30 REM DATA INITIALIZATION 

40 Ml =20 

50 M2=100 

60 DIM D(20) 

70 DIM Cl*(100) 

80 DIM C(IOO) 

90 PRINT "ENTER DATE OF THE STATEMENT"! 
100 INPUT D$ 

110 PRINT "ENTER BALANCE FROM BANK": "STATEMENT"! 
120 INPUT B 

130 PRINT "ENTER DEPOSITS NOT CREDITED ON STATEMENT"! " (ENTER WHEN DONE)"! 

140 FOR 1=1 TO Ml 

ISO D(I)=0 

160 INPUT D(I) 

170 IF D(I)=0 THEN 200 

180 DO=DO+D(I) 

190 NEXT I 
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200 PRINT "ENTER CHECKS OUTSTANDING": " (CHECK NBR, AMOUNT) "i 

210 PRINT "ENTER WHEN DONE"s: 

220 M1=I-1 

230 FOR 1=1 TO M2 

240 C1«(I)=" " 

230 C(I)=0 

260 INPUT C1«<I),C(I) 
270 IF C1«<I)="0" THEN 300 
280 CO=CO+C(I) 
290 NEXT I 

300 PRINT "SUBTRACT SERVICE AND OTHER": : "CHARGES FROM YOUR CHECKBOOK": 
310 PRINT "(DON'T FORGET OTHER ADDS AND": : "SUBTRACTS SUCH AS AUTOMATIC 

320 PRINT "WITHDRAWALS, CHECK CHARGES, 'ETC.)":: 

330 M2=I-1 
340 PRINT 

350 PRINT "ENTER THE CURRENT BALANCE": : "SHOWN IN YOUR CHECKBOOK":: 
360 INPUT Bl 

370 REM PRINT OF RESULTS 
380 PRINT 

390 PRINT "ALIGN FOR OUTPUT" 
400 INPUT A* 
410 PRINT 

420 PRINT TAB(10);D« 
430 REM 

440 PRINT "STATEMENT BALANCE" ; TAB (21 ); "$"jB 
450 REM 

460 PRINT "RECENT DEPOSITS NOT SHOWN" 

470 FOR 1=1 TO Ml 

480 PRINT TAB(16);D(I) 

490 NEXT I 

500 REM 

510 PRINT " SUBTOTAL":" DEPOSITS" ; TAB (22) ;"«"; DO 
520 REM 

530 PRINT TAB(15) ;"==============" 

540 PRINT "TOTAL "sTAB(22) ; "*"jDO+B 
550 REM 

560 PRINT "CHECKS" | TAB ( 16) ; "CHK" | TAB (22) { "AMOUNT OUTSTANDING" 

570 REM 

580 FOR 1=1 TO M2 

590 PRINT TAB(16);C1«(I);TAB(22);C(I) 
600 NEXT I 

610 PRINT TAB(16)s" " 

620 PRINT "SUBTOTAL CHECKS OUT *";C0 
630 REM 

640 PRINT "==s==s:ssaBs=B>=3S=s:a==a=B=s=s=" 

650 PRINT "BALANCE EXPECTED" :" IN CHECKBOOK" ; TAB ( 16) ; "$";DO+B-CO 

660 PRINT "BALANCE IN": "CHECKBOOK"; TAB (16) | "«";B1 

670 PRINT "»«««»«««»«««»««»«»»»»«»«««»«•• 

680 PRINT " DIFFERENCE ";TAB(16) ; "$";D0+B-C0-B1 

690 REM *«PROGRAM TERMINATION POINT** 

720 GOTO 720 
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MAJOR SYMBOL TABLE - CHECK BOOK BALANCE 



I- 
I 

I- 


NAME 


• * 


DESCRIPTION 


I 


D( > 


• • 


ARRAY OF DEPOSITS NOT CREDITED 


I 


Cl( 




ARRAY OF CHECK NUMBERS OUTSTANDING 


I 


C< ) 


* • 


ARRAY OF CHECK AMOUNTS OUTSTANDING 


I 


D$ 


* • 


DATE OF BANK STATEMENT 


I 


B 


* * 


BALANCE FROM BANK STATEMENT 


I 


Ml 


• * 


NUMBER OF DEPOSITS NOT CREDITED 


I 


M2 


• • 


NUMBER OF CHECKS OUTSTANDING 


I 


Bl 


• • 


BALANCE IN CHECKBOOK 


I 


DO 


• • 


TOTAL DEPOSITS OUTSTANDING 


I 
I- 


CO 


• * 


TOTAL OF CHECKS OUTSTANDING 




FUNCTIONS USED 


I 


NAME 


• • 


DESCRIPTION 



I ARRAYS* • SINGLE DIMENSION 
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HOUSEHOLD BUDGET 



Description 

This program will help you prepare your monthly budget. Information 
is entered using data statements and is retained for later analysis or 
review. 

Functions of the Program 

The program reads the budget categories and expense items from data 
items, as well as the month name abbreviations. It stores these items in 
arrays, determines the first month/year to print based upon your input, 
and then finds the starting point in the data items supplied. During 
processing, the items are read, totaled, and then printed. Note that you 
must define your budget categories for the program as shown in lines 
1180-1230 of the program listing. 

Instructions for Use 

Before running the program, it is necessary to initialize the budget 
codes that you wish to use (or use the ones given here) and to provide 
the budget data items using DATA statements followmg the budget 
code "END" indicator. 

Data Entry 

All data is entered usmg DATA statements. 
Data Formats 

There are three types of data formats for this program: 

1. The budget category codes are entered in the form: 

Code, Category (Fixed, Variable, or Semivariable), Explanation 

2. The master month entry is given by: 

*, Month name abbreviation. Year 

3. Budget expense items for the month are entered using the form: 

Budget code, Amoimt, Explanatory comments 
Note the END card. 

Output Description 

See example provided. Output will be printed for the number of months 
requested. A maximum of six months is possible, printed horizontally. 

Comments 

The number of budget expense codes in the program is currently lim- 
ited to 20. 
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10 CALL CLEAR 

20 REM HOUSEHOLD BUDGET PROGRAM 

30 REM »»«»»»»»«««»«»lct«»««DATA INITZATZON«*»***««*<«*»«t*««*«» 

40 M° 10000 
SO Nal 

60 DIM M«(12> 
70 Ml=20 
80 DIM Ct(20) 
90 DIM T«<20) 
100 DIM D»<20) 
110 DIM P(6,20) 

120 REM *»»«»«*«*»»»»»«»»INITIALIZE MONTH ARRAY**««*«»«»»**«««»« 

130 FOR 1=1 TO 12 
140 READ M*(I) 
ISO NEXT I 

160 REM t«»«t*««««*«««INITIALIZE BUDGET CATEGORIES************** 

170 FOR 1=1 TO Ml 

leo READ C»(I) 

190 IF C«<I)»"END" THEN 220 

200 READ T«<I),D*(I) 

210 NEXT I 

220 Ml-I-1 

230 REM ****««»****««»«DETERMINE MONTHS TO PRINT*«*»»*********** 

240 PRINT "ENTER THE STARTING MONTH, "i "YEAR FOR THE PRINT" 

250 INPUT M0«,Y0 

260 FOR 1=1 TO 12 

270 IF M0*=M«<I)THEN 300 

280 NEXT Z 

290 GOTO 240 

300 PRINT "HOW MANY MONTHS SHALL I PRINT (MAXIMUM 2 MONTHS)" 

310 NO=I 

320 INPUT Nl 

330 IF Nl>2 THEN 300 

332 PRINT tilt lit 

340 REM »»««««««**««$«»»««FIND STARTING RECORD****************** 

330 FOR 1=1 TO M 
360 READ CO* 

370 IF CO*»"END" THEN 1090 

380 IF C0«<>"*" THEN 430 

390 READ M1*,Y 

400 IF MOtOMl* THEN 430 

410 IF YOOY THEN 430 

420 GOTO 460 

430 NEXT I 

440 REM **«««***«»«*«««*«*««»»»**»«»»««»«*t»**«***«*******«*«»«> 
450 REM *****»«««»«»««»««««*PR0CESSIN6 AREA********************* 

460 1=1 

470 READ CO* 

480 IF CO«="END" THEN 670 
490 IF C0*<>"*" THEN 370 
500 READ MO»,Y 
510 N=N+1 
520 PRINT 

530 IF M0*«M*<N+N0-1)THEN 470 

540 PRINT "MONTH IS MISSING FOLLOWING ''lM*<N0+N-2) 
550 N1=N-1 
560 GOTO 470 

570 REM **«*********DETERMINE ARRAY POSITION OF ITEM************ 

580 READ A, DO* 

590 FOR J=l TO Ml 

600 IF CO*=C*(J)THEN 640 

610 NEXT J 

620 PRINT CO«|","|A|"IN MONTH"»MO«jY| "CANNOT BE RECOGNIZED" 

630 GOTO 470 

640 P<N, J)=P<N,J)+A 

650 1=1-1-1 

660 IF I<=M THEN 470 

670 REM **«»«««««««»«tt«»«««PRINTING ROUTINE******************** 

680 N1=N 
690 PRINT 
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700 PRINT 

710 PRINT -ITEM" I 

720 FOR J=l TO Nl 

730 J1=J+N0-1 

740 IF Jl<=12 THEN 760 

750 J1=J1-12 

760 PRINT TAB<J«10+2)|M*(Jl)| 
770 NEXT J 
780 PRINT 
790 REM 

800 FOR J«l TO Ml 

810 IF Jsl THEN 840 

820 IF T»(J)=T«(J-l)THEN 840 

830 PRINT 

840 PRINT Dt(J)|" "iTtCJ)! 

850 FOR K»l TO Nl 

860 PRINT TAB(K«10+2)|P<K,J)| 

870 IF J=l THEN 890 

880 T<K)=T<K)+P<K,J) 

890 NEXT K 

900 PRINT 

910 NEXT J 

920 REM »t*««*««*»t**««*«*«»PRINT TOTAL LINE8«««»»<*«*»»*«*«*»« 

930 FOR K»l TO Nl 

940 PRINT TAB<K«10-»-2)|" "l 

950 NEXT K 
960 PRINT 

970 PRINT "TOTAL EXP"| 

980 FOR K=l TO Nl 

990 PRINT TAB(K*10+2>|T<K)| 

1000 NEXT K 

1010 PRINT 

1020 REM 

1030 PRINT "NET INCOME"! 
1040 FOR K=l TO Nl 

1050 PRINT TAB<K«10+2)|P<K,l)-T(K)l 
1060 NEXT K 
1070 REM 

1090 REM ««»«»«»»«««»«««t»*««««*«t«***««««**t»»»*««*t«««»«»»«*««« 
1100 REM ««««««««»««*««*PRaGRAM TERMINTAION POINT«««*»«»»«««««»«« 

1110 END 

1 140 REM »«««*«»»«»«««»*»«««**t«*«*«»«»«***»*««t«t*««»»«*««»«*««t 

1150 REM »*««**»»«««*«DATA FOR INITALIZATIQN FOLLOUS»««**«««t<««« 

1160 DATA JAN,FEB,MAR,APR,MAY»JUN,JUL,AU6,SEP,0CT,N0V,0EC 

1170 DATA IN, IN, TOTAL/ IN 

1180 DATA H,F, RENT, U,F, UTILITIES 

U90 DATA I, F, INSURANCE, P,F, PAYMENTS 

1200 DATA F, S, FOOD, A, S, TRANS 

1210 DATA M,S, REPAIRS, MD, 8, MEDICAL 

1220 DATA C,V,CLOTHINQ 

1230 DATA E, V, EDUCATION, R,V,REC,S,V, SAVINGS, 0,V, OTHER 
1240 DATA END 

1250 REM «*««*»«««*««*«»«t»«BUD6ET DATA FOLLOUS««»»*««««*t**««««* 

1260 DATA t,JUN, 1979 

1270 DATA IN,850.2,WA6ES 

1280 DATA IN, 100. 50, COMM. 

1290 DATA H,350, 

1300 DATA U, 195, ,F,234.45, 

1310 DATA I, 45. 55, LIFE INSURANCE 

1320 DATA P, 10. 15, CHARGE CARD Y 

1330 DATA P, 23. 45, FURNITURE 

1340 DATA P, 12. IS, CHARGE CARD X 

1350 DATA M, 50, NEW WATER HEATER 

1360 DATA MD, 20, DENTAL VISIT-JIM 

1370 DATA *, JUL, 1979 

1380 DATA IN, 800. 50, WAGES 

1390 DATA H, 350,, U, 200,, 1, 45. 55,, P, 23. 45,, S, 100,, R, 20, MOVIES 
1400 DATA *, AUG, 1979 
1410 DATA IN, 467. 55, WAGES 
1420 DATA H, 375,, U, 205, 
1430 DATA END 
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HAJOR SYMBOL TABLE - HOUSEHOLD BUDGET 



NAME 


* « 


DESCRIPTION 


M$( 




ARRAY OF MONTH NAMES 


C$< 


)** 


MASTER BUDGET CODES 


T»< 




MASTER EXPENSE TYPE CODES 


D$( 




MASTER BUDGET ITEM DESCRIPTIONS 


P< ) 




BUDGET AMOUNTS (2 DIM ARRAY FOR PRINTS) 


Ml 




MAXIMUM NUMBER OF BUDGET CATEGORIES 


MO* 




START MONTH FOR PRINTING 


YO 




START YEAR FOR PRINTING 


Nl 




NUMBER OF MONTHS TO PRINT 


NO 




POINTER TO STARTING MONTH NAME 


CO* 




TRANSACTION BUDGET CODE 


A 




TRANSACTION AMOUNT 


DO* 




TRANSACTION EXPLANATION 


N 




MONTH COUNT 


T< > 




MONTHLY TOTALS 


M 




MAXIMUM NUMBER OF DATA READS 


FUNCTIONS USED 


NAME 


• * 


DESCRIPTION 


TAB 


* • 


FORMATS PRINT LINES 


ARRAYS* 


• 2 DIMENSIONS 
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HOUSEHOLD EXPENSES 



Description 

This program will assist in the preparation of household expense re- 
views and analyses based upon actual-versus-budgeted expenses. In 
conjunction with the household budget program given previously, this 
program will be useful in getting the most for your dollar. 

Functions of the Program 

The program functions in the same way as the household budget pro- 
gram except that only one month is printed during each run of the 
program. In addition, you will be asked to enter the budget amount 
through the keyboard for each of the prompted expense categories. 
Note that the expense categories are defined by you as shown in lines 
1140-1210 of the program listing. 

Instructions for Use 

To run this program, it is necessary to initialize the expense categories 
that you wish to use and to provide the data entries for the expenses 
incurred during the month. Note the sample data provided. 

Data Entry 

Expense data is entered using DATA statements, and budget informa- 
tion is entered through the keyboard. 

Data Formats 

There are three types of data formats available: 

1. Expense category codes and their explanations are entered in the 
form: 

Expense code. Category (Fixed, Variable, or Semivariable), 

Explanation 

2. Monthly entries require a heading record of the form: 

*, Month name abbreviation, Year 

3. Expense item entries are provided in the form: 

Expense code. Amount, Explanatory comments 
Note the END card. 

Output Description 

Two forms of output are available: 

1. A detailed list of the month's expenses (complete with explana- 
tory comments). 

2. An analysis of the month's actual-versus-budgeted figures. 

Comments 

The number of expense category codes is currentiy limited to 20. 
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10 CALL CLEAR 

20 REM HOUSEHOLD EXPENSE ANALYSIS 

30 REM ««««»«««»»»»»»«««««»DATA INITIALIZATION»>»«»»«»»»«»«»l:«* 

40 M= 10000 
50 DIM M*<12) 
60 Ml =20 
70 DIM C*<20) 
80 DIM T«(20) 
90 DIM D*<20) 
100 DIM P(20) 
110 DIM B(20) 
120 DIM D(20) 

130 REM *«*««»»»*«««««»INITIALIZE MONTH ARRAY««»»*»«««»»««««**«« 

140 FOR 1=1 TO 12 
ISO READ M«(I> 
160 NEXT I 

170 REM *«»«»»«*«« INITIALIZE BUDBET/EXPENSES CATEGORIES********* 

180 FOR 1=1 TO Ml 

190 READ C*(I) 

200 IF C«(I>="END" THEN 230 

210 READ T$(I),D$(I) 

220 NEXT I 

230 M1=I-1 

240 REM ***»*»««»««»*»*DETERMINE MONTHS TO PRINT**************** 

2S0 PRINT "ENTER THE MONTH, YEAR FOR" I "THE PRINT" | 

260 INPUT M0$,Y0 

270 FOR 1=1 TO 12 

280 IF MO»«M«(I)THEN 320 

290 NEXT I 

300 60T0 250 

310 NO=I 

320 REM «**********««»****ENTER BUDGET FI6URES*******»»********« 

330 PRINT "FOR EACH CATEGORY PRINTED"! "ENTER THE BUDGETED AMOUNT " 

340 PRINT 

350 FOR 1=1 TO Ml 

360 PRINT D$(I); 

370 INPUT B<I> 

380 NEXT I 

390 PRINT "SHALL I PROVIDE A DETAILED PRINT OF EXPENSES"! " (Y OR N)"| 

400 INPUT A» 

410 IF A$<>"Y" THEN 480 

420 PRINT 

430 PRINT 

440 PRINT TAB(S) j"**EXPENSE DETAIL**" 

4S0 PRINT "ITEM"|TAB(10)|"AMT"|TAB<20>f "EXP." 

460 PRINT " " 

470 REM 

480 REM *****»»****«»«»***FIND STARTING RECORD****************** 

490 FOR 1=1 TO M 
500 READ C0« 

510 IF C0*'n"END" THEN 1060 

520 IF C0$<>"*" THEN 570 

530 READ M1«,Y 

540 IF M0«<>M1« THEN 570 

550 IF YOOY THEN 570 

560 GOTO 600 

570 NEXT I 

580 REM »*«*»»«****«*»«***«»»«»*»***»*****«*««««************»*** 
590 REM **««*******«*«*»»«»«*PR0CESSIN6 AREA***«*»«*»*****»««**« 

600 1=1 

610 READ C0$ 

620 IF CO*="END" THEN 760 
630 IF C0*="*" THEN 760 

640 REM **««»««»****DETERMINE ARRAY POSITION OF ITEM************ 

650 READ A,DO« 

660 FOR J=l TO Ml 

670 IF CO*=C«<J)THEN 710 

680 NEXT J 

690 PRINT CO$|",";A;"IN M0NTH";M0*;Yj "CANNOT BE RECOGNIZED" 
700 GOTO 610 
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710 P<J)=P(J)+A 
720 1=1+1 

730 IF A»<>"Y- THEN 730 

740 PRINT D«<J);TAB(10);A;TAB(17>|D0t 

750 IF I<=M THEN 610 

760 REM ««»l:«««»»««*«««»«ANALYSIS PRINT ROUTINE»«»**««t««»|:««««|c 

770 N1=N 
780 PRINT 
790 PRINT 

800 PRINT "tttt***t*tt*t*t***ttttt*ttf 

810 PRINT TABdO) ;M0$;YO 

820 PRINT "ttttttttttttttttttttttttttf 

830 PRINT " ITEM"} TAB < 10) ; "BUDGET"; TAB (17) } "ACTUAL"; TAB (24) ; "DIFF" 

840 PRINT " 

850 REM 

860 FOR J"l TO Ml 

870 IF J=l THEN 900 

880 IF T*<J)aT*(J-l)THEN 900 

890 PRINT 

900 PRINT D«<J)|" ••iT»<J)| 
910 D(J)=P<J)-B<J) 

920 PRINT TAB<8);B(J>;TAB(14)|P(J);TAB(21);D(J) 

930 IF J=l THEN 970 

940 P0=P0+P<J> 

950 BO=BO+B(J) 

960 DO=DO+D<J) 

970 NEXT J 

980 REM ««««»««»»«»«««»*«»«PRINT TOTAL LINES«««***»«««*l:*«*»*««« 

990 PRINT _ " 

1000 PRINT " TOTAL EXpiNSES"r 

1010 PRINT TAB(S>}B0;TAB(13>;P0;TAB(20);D0 

1020 PRINT 

1030 PRINT " NET INCOME" I 

1040 PRINT TAB(6>;B(l>-B0;TAB(13);P(l>-P0;TAB(20);D(l>-DO 
1050 PRINT 

1060 REM «««»«»«»«*««*««*««««««*»»»»««««»«»«««»»«»«««*»««»»»*««« 
1070 REM »«««»»«»«««**«*PR06RAM TERMINTAION POINT«*««»««*«*««»*« 

1080 PRINT 
1090 PRINT 
1100 STOP 

1110 REM «««««»««*«««»»«*»*»««««««»««»»»|:«««»«««««««««»»«|c««»«»»« 

1120 REM »»«««»»»*««««DATA FOR INITIALIZATION FOLLOWS*«»»»«««««««« 

1130 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AU6, SEP, OCT, NOV, DEC 

1140 DATA IN, IN, INCOME 

1150 DATA H, F, RENT, U,F, HEAT 

1160 DATA I,F,INS.,P,F,PAY. 

1170 DATA F, S, FOOD, A, S, AUTO 

1180 DATA M,S,MAINT,MD,S,MED 

1190 DATA C,V, CLOTHES 

1200 DATA E, V, ED., R,V,REC.,S,V,SAV.,0,V, OTHER 
1210 DATA END 

1220 REM «»«««»««*««»«»«««»BUD6ET DATA FOLLOUS««««»««««««*«««»**« 

1230 DATA «,JUN,1979 

1240 DATA IN, 850. 2, WAGES 

1250 DATA IN, 100. SO, COMM. 

1260 DATA H,330, 

1270 DATA U, 195,, F, 234. 45, 

1280 DATA 1,45.55, LIFE 

1290 DATA P, 10. 15, CHARGE Y 

1300 DATA P, 23. 45, FURNITURE 

1310 DATA P, 12. 15, CHARGE X 

1320 DATA M, 50, NEW HEATER 

1330 DATA MD, 20, DENTIST 

1340 DATA «, JUL, 1979 

1350 DATA IN, 800. SO, WAGES 

1360 DATA H,350, ,U, 200,, 1, 45.55,, P, 23.45, ,S, 100, ,R, 20, MOVIES 
1370 DATA », AUG, 1979 
1380 DATA IN, 467. 55, WAGES 
1390 DATA H, 375,, U, 205, 
1400 DATA END 
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RENT? 350 
HEAT? |lO 
INS.? 45.55 
PAY.? 23.45 
FDDD? 100 
fl U T □ ? 2 
h fl I N T ? 2 
MED? 10 
ED . ? 10 
REC . ? 15 
S fl V . ? 10 
□THER? To 



III- 

Pfl Y . 23.45 

sflv. Too 

REC. 20 MOVIES 

JUL 1979 



ITEM BUDGET RCTUfiL DIFF 

TRcoR§~TF3 



900 800.3 -99.5 

PRY. F 23.45 "^^'^^ ° 
23.49 

FpOD S 100 -100 

SpTD^S^ 20 6 -20 



!a g ill 

l?HfeR% 18 -Is 
IIIBC-ispiggEg:;;— 

NET INCOME 

76 61.5 -14.5 



14 Tl BASIC Computer Programs for the Home 



MAJOR SYMBOL TABLE - HOUSEHOLD EXPENSES 

I 1 

I NAME *• DESCRIPTION I 

I 1 

I Mi MONTH NAME ARRAY I 

I C$< ) MASTER EXPENSE CATEGORY CODES I 

I T$< ) MASTER EXPENSE TYPE CODES I 

I D$< > MASTER EXPENSE CATEGORY DESCRIPTIONS I 

I P< ) EXPENSE PRINT ARRAY I 

I B< ) BUDGET PRINT ARRAY I 

I D< ) DIFFERENCE PRINT ARRAY I 

I M0$ MONTH TO PRINT I 

I YO YEAR OF MONTH TO PRINT I 

I COi TRANSACTION CATEGORY CODE I 

I A TRANSACTION AMOUNT I 

I D0$ TRANSACTION EXPLANATION I 

I Ml MAXIMUM NUMBER OF EXPENSE CATEGORIES I 

I M MAXIMUM NUMBER OF DATA READS I 

I PO EXPENSE TOTAL I 

I BO BUDGET TOTAL I 

I DO DIFFERENCE TOTAL I 

I ' 1 

FUNCTIONS USED 

I 1 

I NAME DESCRIPTION I 

I 1 

I TAB FORMAT PRINT LINES I 
I ARRAY SINGLE DIMENSION I 
I 1 
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INSTALLMENT PAYMENT PROJECTION 

Description 

This program produces projected monthly payment amounts for loans 
that are based upon monthly compounding of interest. 

Functions of the Program 

The program accepts inputs of amount to be borrowed, the number of 
payments desired, and interest rate information. It then calculates and 
prints the projected monthly payment. 

Instructions for Use 

Run the program and answer the questions asked by the program. 
Data Entry 

All data is entered through the keyboard. 
Output Description 

See example provided. A projected monthly payment figure is printed. 



10 CALL CLEAR 

20 REM INSTALLMENT PAYMENT PROJECTION 

30 REM *»«*««4E«*»«»««»«»«««COKPOUND8 KONTHLY«««»«<««««»«««««»«t« 
40 REM »»««»«««»»»»««»«»«»DATA INITIALIZATION«*«»«««««»»«*»««»« 

50 PRINT "ENTER THE AMOUNT TO BE BORROWED" 

60 INPUT A 

70 PRINT "ENTER THE NUMBER OF MONTHLY PAYMENTS" 
80 INPUT N 

90 PRINT "IS THE INTEREST RATE PER"i."MONTH <M) OR YEAR <Y) " 
100 INPUT T* 

110 PRINT "ENTER THE INTEREST RATE" I " (PERCENT) " 
120 INPUT I 
130 IsI/100 

140 IF T*a"M" THEN 170 
150 I°I/12 

160 REM *«*»««««»«««»«»«««««*«»CALCULATION*««««»««««*««»»»«t««M 

170 P^Afd/Cl-CH-D'^-N)) 
180 PRINT 

190 PRINT "PROJECTED MONTHLY"* "PAYMENTi "jP 

200 REM ««»«»»|c»««»««»t«PROBRAM TERMINATION POINT»»««««»»««<«**« 

210 PRINT 
220 PRINT 
230 END 



gMIg5..iyE RMDUNT TO BE 
BORROUED 

NUMBER OF MONTHLY 

^fl YMENTS 

IS^ THE INTEREST RATE PER 
^ONTH <M> OR YEAR <Y> 

fpERCENTf INTEREST RATE 

? 9 

PROJECTED MONTHLY 

PAYMENTS 87.45147677 
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HAJOR SYMBOL TABLE - INSTALLMENT PAYMENT PROJECTION 



: NAME 




DESCRIPTION 


[ A 


• • 


AMOUNT OF PRINCIPAL (BORROWED) 


: N 


* • 


NUMBER OF MONTHLY PAYMENTS 


: I 


• • 


INTEREST RATE 


p 


• • 


RESULTING PROJECTED PAYMENT 
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INTEREST RECEIVED PROJECTIONS 



Description 

This program will assist you in analyzing potential investments. It esti- 
mates the future returns on an initial investment at a given interest rate. 

Functions of the Program 

The program initializes variables by requesting inputs through the key- 
board. It allows various compounding strategies and will print the results 
after each compounding period, or at the end of each year. Following 
the input of all items requested, the program prmts the initial informa- 
tion and then proceeds to calculate and print the results. 

Instructions for Use 

Run the program and answer the questions asked by the program. 
Data Entry 

AH data is entered through the keyboard. 
Output Description 

See examples provided. A table of amounts and interest received, by 
period, is produced. 



10 CALL CLEAR 

20 REM INTEREST RECEIVED PROJECTIONS 

30 REM «*«**«»*««««4:««««4cDATA INITIALIZATION*>«»**««t««*««»lE««> 

40 PRINT "ENTER THE AMOUNT TO BE": "INVESTED" 
50 INPUT I 

60 PRINT "ENTER THE INTEREST RATE" 
70 INPUT R 

80 PRINT "ENTER THE NUMBER OF YEARS TO" i "PROJECT" 
90 INPUT N 

100 PRINT "ENTER THE NBR OF TIMES PER"s"YEAR THAT IT WILL BE" x "COMPOUNDED" 

110 INPUT C 

120 IF COO THEN 150 

130 PRINT "C0MP0UNDIN3 MUST BE AT LEAST": "ONCE EACH YEAR" 

140 GOTO 100 

150 PRINT 

160 A$>="Y" 

170 IF C=l THEN 200 

180 PRINT "SHALL I PRINT AFTER EACH": "COMPOUNDING PERIOD <Y OR N)?" 
190 INPUT A* 
200 PRINT 
210 PRINT 

220 PRINT "«««*«**«*««««««*«*««««««««««" 

230 PRINT "INITIAL INVESTMENT «";I 
240 PRINT "ANNUAL INTEREST RATE";R;"7." 
250 PRINT "COMPOUNDED" ; C; "X PER YEAR" 
260 PRINT "««««««««»»««««»«««««««««««««" 
270 PRINT 

280 PRINT TAB <5); "BEGIN"; TAB (13); "INTEREST" 

290 PRINT "YR";TAB<5) ; "AMOUNT"; TAB (14) ; "AMOUNT"; TAB < 23) ; "TOTAL" 

300 PRINT " ";TAB<13);" "j TAB (22);" 

310 R1=R«.01/C 
320 T=I 

330 FOR J"l TO N 
340 PRINT J; 
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350 TO=T 

360 T4=0 

370 FOR K«l TO C 

380 Tl=TtRl 

390 T2=INT((T1+.005)»100) 
400 T1=T2/100 
410 T4=T4+T1 
420 T3='T 
430 T5=:T1 

440 IF At«"Y" THEN 480 
450 IF K<C THEN 490 
460 T5=T4 
470 T3=T0 

480 PRINT TAB<4)jT3jTAB<13);T5|TAB<2l)|Tl-»-T 
490 T=T+T1 
500 NEXT K 
510 PRINT 
520 NEXT J 

530 REM «lc'«tt«******«*«t«*TERriINATION POINT««*««««t«t««t««*«««*« 

540 PRINT 
550 PRINT 
560 END 



2 1000 

feNTER THE INTEREST RATE 
ENTER^THE NUMBER OF YEARS TO 

^□riPOUNDEO 



**************************** 

INITIAL INVESTMENT $ 1000 
ANNUAL INTEREST RATE 9 5i 
COMPOUNDED 12 X PER YEAR 
««•»««««-»«*«««««*««'»««««««««« 



YR 



BEG I N 
AMOUNT 



INTERI 
AMOUl 



TOTAL 



Ssre"""" 

102. 61 
1 12. 23 



159378" 
1 196. 41 
1308. 64 



1000 
1093. 8 
1 196. 41 



HAJOR SYMBOL TABLE - INTEREST RECEIVED PROJECTIONS 



NAME 


• • 


DESCRIPTION 


I 


* • 


AMOUNT INVESTED 


R 


• • 


RATE OF INTEREST 


N 


• • 


NUMBER OF YEARS 


C 


• • 


NUMBER OF TIMES PER YEAR ITS COMPOUNDED 


J 


• • 


YEAR BEING COMPUTED 


T3 


• • 


BEGINNING AMOUNT FOR THE PERIOD 


TS 


• • 


INTEREST AMOUNT FOR THE PERIOD 


T 


• • 


BEGINNING AMOUNT FOR THE YEAR 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINES 


INT 


• • 


CONVERTS NUMBER TO INTEGER 
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MORTGAGE AMOUNT PROJECTIONS 



Description 

This program will project monthly mortgage payments for any amount, 
interest rate, or mortgage term. 

Functions of the Program 

This program accepts keyboard input for the projected mortgage 
amount, interest rate, and number of years for the mortgage. It then 
produces a projected monthly payment that includes both principal 
and interest. After data is entered, the interest rate is converted for 
compounding purposes. Following the computations, the initial entries, 
as well as the projected monthly payment amount, are printed. 

Instructions for Use 

Run the program and answer the questions asked by the program. 
Data Entry 

All data is entered through the keyboard. 

Output Description 

See example output provided. 



10 CALL CLEAR 

20 REM MORTGAGE COMPUTATION PROGRAM BASIC 

30 REM t*****t**********t DATA INITIALIZATION ««««««»*«««««««»« 

40 PRINT "ENTER THE MORTGAGE AMOUNT" 
50 INPUT P 

60 PRINT "ENTER THE INTEREST RATE" 

70 INPUT II 

80 IF I1>1 THEN 100 

90 11=11*100 

100 I=<I1/100)/12 

110 PRINT "ENTER THE YEARS OF THE" I "MORTGAGE" 
120 INPUT Y 
130 PRINT 
140 PRINT 
150 PRINT 

160 REM «««»«»***«««*««»«»«»» COMPUTATION »«»»«»««««**»*«««»««»« 

170 M=I/<<1+I)'^(Y«12>-1)+I 
180 M1=M«P 

185 M1=INT<M1«100+.5)*.01 

190 PRINT "«»»««««»»«««»««««««««*««»«««" 

200 PRINT "MORTGAGE AMOUNT *";P 

210 PRINT "INTEREST RATE ";Ilj"'/." 

220 PRINT "MONTHLY PAYMENT *";M1 

230 PRINT "ttttttttttttttttnttttttttttt" 

240 REM «««««»«»««««««««»» PROGRAM TERMINATION »««»«»«»»«*«««»«» 
250 PRINT 
260 PRINT 
270 STOP 
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ENTER THE MDRTGRGE flMDUNT 

? 75000 

ENTER THE INTEREST RATE 

ENTER^THE YEARS DF THE 

MORTGAGE 

? 30 



MORTGAGE AMOUNT S 75000 
INTEREST RATE 9 % 
MONTHLY PAYMENT S 

603 . 4669627 
**»»•»********♦♦****#****«♦*» 



MAJOR SYMBOL TABLE - MORTGAGE AMOUNT PROJECT 



I NAME DESCRIPTION 
I 



IP •* PROJECTED MORTGAGE AMOUNT 

I II INTEREST RATE 

II MODIFIED INTEREST RATE 

I Y NUMBER OF YEARS FOR THE MORTGAGE 

I Ml MONTHLY PAYMENT 

I 



ONS 



Home Financial Programs 



MORTGAGE COMPARISONS 



Description 

This program produces a table that compares various mortgage amoimts, 
terms, and interest rates. The information is ideal for the prospective 
buyer or seller and allows him to compare various alternatives that may 
be available. 

Functions of the Program 

You are asked to indicate which of the items to vary first. Based upon 
your response to this question, the amounts, terms, and interest rates 
are entered. The example output shows the results of a run where the 
mortgage amount was varied. 

Instructions for Use 

Run the program and respond to the questions asked, through the 
keyboard. 

Data Entry 

All data is entered through the keyboard. 
Output Description 

See examples provided. The program produces a table of comparisons. 
They differ slightly in appearance depending upon the item being varied 
but all tables include the mortgage term, interest rate, mortgage amount, 
projected monthly payment, and total interest to be paid. 



10 CALL CLEAR 

20 REM MQRTBABE COMPARISON PR08RAM 

30 REM NOTE ROUNDING ERRORS MAY OCCUR IN COMPUTED NUMBERS 

40 REM ««!|c««X««»«««»]K»»»»«««3|E««««««»«»»««]|c««]|[«»«««««»«««««»««»» 

50 REM *«««»««««»««««««» DATA INITIALIZATION 

60 PRINT "ENTER THE ITEM TO VARY" i "AMOUNT (A) , INT RATE(I) , "OR YEARS (Y)** 

70 Sl=l 

BO S2=l 

90 S3=l 

100 INPUT A$ 

110 REM «**««*»*»***«*« ENTRY OF VARIABLE ITEMS »»***««»«*«««*«« 

120 IF A«<>"A" THEN 180 

130 PRINT "ENTER THE BEG INN INS AMOUNT, " i "ENDING AMOUNT TO CONSIDER" 
140 INPUT A0,A1 

150 PRINT "ENTER THE INTERVAL BETWEEN"! "PRINTS I.E. 1000" 

160 INPUT SI 

170 GOTO 350 

180 IF MO" I" THEN 240 

190 PRINT "ENTER THE LOWEST, HIGHEST": "INTEREST RATE TO CONSIDER" 
200 INPUT R0,R1 

210 PRINT "ENTER THE INTERVAL BETWEEN PRINTS I.E. .25 FOR 1/4" 

220 INPUT S2 
230 GOTO 300 
240 IF A«<>"Y" THEN 290 

250 PRINT "ENTER THE LOWEST, HIGHEST"! "NUMBER OF YEARS TO CONSIDER" 
260 INPUT Y0,Y1 

270 PRINT "ENTER THE INTERVAL BETWEEN"! "PRINTS I.E. 3 " 
280 INPUT S3 
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290 REM *tt**t*****ttt*t ENTRY OF CONSTANT ITEMS »«»««««»«»*«*«« 

300 PRINT "ENTER THE MORTGAGE AMOUNT" 
310 INPUT P 
320 AO=P 
330 Al=P 

340 IF A»="I" THEN 420 

3S0 PRINT "ENTER THE INTEREST RATE" 

360 INPUT II 

370 IF I1>=1 THEN 390 

380 J1>I1«100 

390 R0=I1 

400 R1=I1 

410 IF A«="Y" THEN 460 

420 PRINT "ENTER THE YEARS OF THE": "MORTGAGE" 

430 INPUT Y 

440 Y1=Y 

450 YO=Y 

460 PRINT 

470 PRINT 

480 PRINT 

490 REM «»t«»«»»«»»««««*»««t«»««««»«««««««««|c»«»«««««t«««*«*i|r*«« 
SOO REM ««»t««««»«»«««»«««*» PROCESSING LOOP ««««««»««f *«*««»**» 

510 FOR Y=YO TO Yl STEP S3 

320 PRINT "FOR A MORTGAGE OF"; Y; "YEARS" 

530 PRINT 

540 FOR I1=R0 TO Rl STEP S2 

SSO PRINT "USING INTEREST RATE"}I1;"%" 

560 PRINT 

570 PRINT "M0RTGAGE";TAB<10) r*M0NTHLY"iTAB(20) I " TOTAL" 
380 PRINT " AMOUNT"; TAB (10); "PAYMENT"; TAB (20); "INTEREST" 

390 PRINT " ";TAB<10);" ";TAB(20);" " 

600 FOR P=AO TO Al STEP SI 

610 REM »«*«***««««*«»««« COMPUTATION AND PRINT «4c«»«t*««««»«««« 

620 I°(I1/100>/12 

630 M=I/(<1+I)'^(Y«12)-1)+I 

640 M1=M*P 

630 I3»M1«Y«12-P 

660 Ml=INT(Ml«100+.3)».0l 

670 I3=INT(I3»100+.S)«.01 

680 PRINT P; TAB (9); Ml; TAB (19); 13 

690 NEXT P 

700 PRINT "»»»«»»*»««««««»»«»»«»«»»««««" 

710 PRINT 
720 NEXT II 
730 NEXT Y 

740 REM t»t««««»*«*«««««*« PROGRAM TERMINATION «*«»»«««««««««««« 

730 PRINT 
760 PRINT 
770 STOP 

ENTER THE ITEM TD^VRRY 
-flMOUNT<fl>, INT RflTE<I>, 
□R YERRS< Y> 

ENTER THE BEGINNING RMOUNT* 
ENDING RMDUNT TO CONSIDER 
2 50000»75000 

ENTER^THE^INTERVRL BETWEEN 
? 5o5S 1000 

enter the interest rate 
Inter the yerrs of the 

MDRT6R6E 
? 30 

FOR fl MGRTGRGE OF 30 YEARS 
USING THE INTEREST RRTE 10 5: 

iSoSg""" 4387785"" 1 079627882 
~iSoO 482.664 118759.17 
526.542 129555. 459 
570.421 140351.747 
614.3 151148. 035 

658.178 161944.323 
*««•»*«««*«****«*«««•»««««««'»« 
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DR J YERRS<Y> 

ENTER ^THE„ LOWEST, HIGHEST 
INTEREST RRTE TD CDNSIBER 

ENTER 'tHE^ INTER VflL^BETUEEN 
PRINTS I.E. .25 FDR T/'4 

ENTER^THE MDRTGflGE flMDUNT 

ENTER^THE YEARS DF THE 

MDRTGRGE 

? 35 



FDR n MDRTGflGE DF 35 YEARS 

USING THE INTEREST RATE 9.5 
y. 

MDRT6AGE MONTHLY PI TDTAL 

AMOUNT PAYMENT INTEREST 

"§0000"" 4T57805""122S387536 



US I NG 

y. 



THE INTEREST RATE 9.75 



MORTGAGE 
AMOUNT 



MONTHLY 
PAYMENT 



PI TDTAI 
INTERI 



:sT 



-§0000"" 4207295"~l2g§2§. '??2 



MORTGAGE MONTHLY PI TOTAL 
AMOUNT PAYMENT INTEREST 

"§0000"" 4297836""1305§T7509 



HAJOR SYMBOL TABLE - MORTGAGE COMPARISONS 



NAME 


*• DESCRIPTION 




SI 


INTERVAL BETWEEN MORTGAGE 


AMOUNTS ' 


S2 


INTERVAL BETWEEN INTEREST 


RATES 


S3 


INTERVAL BETWEEN MORTGAGE 


YEARS 


AO 


FIRST AMOUNT CONSIDERED 




Al 


LAST AMOUNT CONSIDERED 




RO 


LOWEST RATE CONSIDERED 




Rl 


HIGHEST RATE CONSIDERED 




YO 


LOWEST NUMBER OF YEARS CONSIDERED 


Yl 


HIGHEST NUMBER OF YEARS CONSIDERED 


P 


SINGLE MORTGAGE AMOUNT 




11 


SINGLE INTEREST RATE 




Y 


«* SINGLE YEAR TO CONSIDER 




Ml 


MONTHLY PAYMENT COMPUTED 




13 


TOTAL INTEREST PAID 




FUNCTIONS USED 


NAME 


** DESCRIPTION 




TAB 


FORMATS PRINT LINES 
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PROPERTY COMPARISONS 



Description 

This program produces a table giving the monthly costs associated with 
a specific property. Included in the table is a computation of monthly 
principal-interest and monthly principal-interest-taxes-insurance. Also 
included is a projected total monthly cost of the property. 

Functions of the Program 

The program requests annual and monthly expense information con- 
cerning the property. Following this, the computation of monthly 
charges is accomplished, and a cost table is printed. At the end of each 
cost table, the program requests the name of the next property to con- 
sider. The program continues to request information on new properties 
imtil you provide a null response (press the return only) to the property 
name question. 

Instructions for Use 

Respond to the questions asked by the program. Be thorough in your 
entry of all relevant costs. 

Data Entry 

All data is entered through the keyboard. 

Output Description 
See example provided. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Comments 

The program's results will be only as good as the data provided. 



10 CALL CLEAR 

20 REM HOUSE COMPARISON PROGRAM 

30 REM «»««»«*««««««««««« OPEN STATEMENT FOR PRINTER «*«**«***« 
40 REM ««« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT ««« 
50 OPEN #1: "RS232.BA=9600.DA=B" 

60 REM «»»«««««««»»»««»»»« DATA INITIALIZATION *«««««*«»««««««« 

70 PRINT "ENTER PROPERTY NAME": " (JUST ENTER « WHEN DONE)" 

80 R0=.005 

90 N«="»" 

100 INPUT N* 

110 IF N«="«" THEN 770 

120 PRINT "ENTER THE MORTBAGE AMOUNT" 

130 P=0 

140 INPUT P 

150 PRINT "ENTER THE INTEREST RATE" 

160 INPUT II 

170 IF I1>=1 THEN 190 

180 11=11*100 
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190 I=<I1/100) /12 

200 PRINT "ENTER THE YEARS OF THE"» "MDRTGASE" 
210 INPUT Y 

220 PRINT "ENTER THE ANNUAL TAXES ON" s "THE PROPERTY" 
230 T=0 
240 INPUT T 
250 T=T/12 

260 T=INT< (T+R0)*100) 
270 T=T/100 

280 PRINT "ENTER THE ANNUAL INSURANCE": "COSTS FOR THE PROPERTY" 
290 F=0 
300 INPUT F 
310 F=F/12 

320 F=INT<<F+R0)«100) 
330 F^F/lOO 

340 PRINT "ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS" 

350 R=0 
360 INPUT R 
370 R=R/12 

380 R=INT( <R+R0>«100) 
390 R=R/100 

400. PRINT "ENTER ANY OTHER «MONTHLY*"s "COSTS THAT APPLY" 
410 S=0 
420 INPUT S 

430 PRINT "ENTER AVERAGE *MONTHLY«" I "UTILITY COSTS" 

440 U=0 

450 INPUT U 

460 PRINT 

470 PRINT 

480 PRINT 

490 REM ««««*«t****«**««**«« COMPUTATION *«***««««««««««t««««««t 

500 M=I/< <1+I)'^(Y«12)-1)+I 
510 M1=M«P 

520 M1=INT< (Ml+R0)*100> 
530 M1=M1/100 
540 0=U+S+R 
530 T1=M1+T+F 

560 PRINT #1: "«*««««)|[)|[*«**«««)|t««««««««««««*«««««««««»««««««t«**««««**'* 

570 PRINT #1: 

580 PRINT #lsN*;" INTEREST RATE"? II; "% - MORTBABE YEARS" ;Y 
590 PRINT #ls 

600 PRINT ttls "MDRTGASE" ; TAB <10) I" P I"|TAB<20> | "TAXES" sTAB<30) | "INS" i 
610 PRINT #1:TAB(40);" PITI" 

620 PRINT #1:" ";TAB<10)j" "jTAB<20)|" ••jTAB<30)| 

630 PRINT #1:" ";TAB<40);" " 

640 PRINT #l!P;TAB(10>;MljTAB(20)|T;TAB<30);F;TAB<40);Tl 
650 PRINT #1: 

660 PRINT #1: "UTILITIES" ; TAB < 15) J" MAINT">TAB<25) | " OTHER" ; TAB < 38) I 
670 PRINT #1:"0PERATINB COSTS" 

680 PRINT *»1:" ";TAB(15);" "|TAB<25);" "j 

690 PRINT #1: TAB (40) J" " 

700 PRINT #l:U;TAB<iS)5R;TAB<25);SjTAB<40)jO 
710 PRINT #1: 

720 PRINT #1:" TOTAL MONTHLY COSTSi «";0+Tl 

730 PRINT »li 

740 PRINT #1: "tttttttttttttttttttttttttttttttttttttttttttttt************ 

750 PRINT #1: 
760 GOTO 70 

770 REM «*«*«««««««««««««« PR08RAM TERMINATION POINT «»«»««««««« 

780 PRINT 
790 PRINT 
800 STOP 
810 CLOSE «1 
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ENTER PRDPERTY NAME 

<JUST ENTER ♦ WHEN DONE) 
? 9111 ANY RDAD STREET 
ENTER THE MDRTSA6E AMOUNT 

2 35000 

feNTER THE INTEREST RATE 

ENTER THE YEARS DF THE 
MDRTGAGE 

ENTER THE ANNUAL TAXES DN 
THE PRDPERTY 

entIr'the ANNUAL^INSURANCE 
CbSTS FDR THE PRDPERTY 
? 123.50 

ENTER THE ANNUAL MAINTENANCE 
AND REPAIR COSTS 

ENTER ANY OTHER, «MDNTHLY» 
COSTS THAT APPLY 

ENTER AVERAGE ♦MONTHLY* 
UTILITY COSTS 
? 155.10 

9111 ANY ROAD STREET INTEREST RATE 10 7. - MDRTQABE YEARS 30 
MORTSABE P I TAXES INS PITI 

35000 307.15 65.79 10.29 383.23 

UTILITIES MA I NT OTHER OPERATING COSTS 

155.1 83.33 40 278.43 

TOTAL MONTHLY COSTS: « 661.66 



ENTER PRDPERTY NAME 
|jyST ENTER * WHEN DDNE> 



«♦ DONE 



MAJOR SYMBOL TABLE - PROPERTY COMPARISONS 



I 


NAME 


• • 


DESCRIPTION 


I 


RO 


• • 


ROUNDING CONSTANT 


I 


N$ 


• • 


NAME OF PROPERTY 


I 


P 


• • 


MORTGAGE AMOUNT 


I 


11 


• • 


INTEREST RATE 


I 


Y 


• • 


NUMBER OF YEARS FOR THE MORTGAGE 


I 


T 


• • 


ANNUAL TAXES 


z 


F 


• • 


ANNUAL INSURANCE COSTS 


I 


R 


• • 


ANNUAL MA I NT/REPAIR COSTS 


I 


S 


• • 


OTHER MONTHLY CHARGES 


I 


U 


* * 


UTILITY COSTS 


I 


Ml 


• • 


PRINCIPAL AND INTEREST 


I 


Tl 


• • 


PRINCIPAL/INTEREST/TAXES/INSURANCE 


I 





• • 


TOTAL UTILITIES/MAINT/OTHER 



FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I INT CONVERTS NUMBER TO INTEGER 

I 
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FINANCIAL RECORDS 



Description 

Items such as credit card numbers and the contents of financial papers 
can cause signi^cant difficulties if not immediately available or lost. 
This program was designed to assist you in recording important 
financial information. It allows for recordmg information concerning 
credit cards, insurance, securities, and property (mortgage) information. 

Functions of the Program 

The program accepts all entries from DATA statements previously pro- 
vided and prints all entries, or selected categories of entries. A separate 
processing area exists for the handling of each type of record. In each 
area headings are printed, formatting is accomplished, and the items 
are printed. 

Instructions for Use 

Provide data entries for all items prior to running the program. The 
DATA formats differ slightiy for each type of record. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

There are four data formats; each is described below. 

1. Credit card entries: 

C, Card name, Name issued to. Card number. Expiration date. 
Credit limit. Address to notify in case of loss 

2. Insurance entries: 

I, Type insurance. Name issued to. Policy number. Date issued, 
Amount, Company name and address 

3. Securities: 

S, Security type. Company, Quantity, Date purchased, 
Purchase price, File location of security 

4. Property (Mortgages): 

M, Property location. Registered to. Mortgage years, 
Purchase date, Amount, Mortgage holder 

Output Description 

See examples provided. The output can include all records or those of a 
specified type only. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 
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10 CALL CLEAR 

20 REM FINANCIAL RECORD PROGRAM 

30 REM «««««««**«*«*****«: OPEN STATEMENT FOR PRINTER ««t««*««** 
40 REM *** CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT *«« 
50 OPEN «1: "R5232.BA°9600.DA=B" 

60 REM *«*«««««««««*»***«« DATA INITIALIZATION *t«*««««»t»«»*»* 

70 M»1000 

80 PRINT "DO YOU WISH TO PRINT ALL": "ENTRIES <Y OR N)?" 

90 INPUT Mt 

100 IF AO«="Y" THEN 200 

110 PRINT "SHALL I PRINT CREDIT": "CARDS <C) , INSURANCEd) , " 

120 PRINT "SECURITIES (S), OR": "MORTGAGES (M) ?" 

130 INPUT Alt 

140 IF A1«="C" THEN 210 

150 IF A1«="I" THEN 390 

160 IF A1«="S" THEN 560 

170 IF A1$="M" THEN 730 

180 PRINT "INPUT NOT RECOGNIZED" 

190 GOTO 80 

200 REM «t**«»«**««»««»««« CREDIT CARD PROCESSING *«**«*««****«« 

210 PRINT #1 
220 PRINT #1 
230 PRINT #1 

240 PRINT #1: "CREDIT CARD/LIMIT" j TAB (25) j "NAME/NOTIFY"; TAB (45) j "NUMBER"; 
250 PRINT #1:TAB<60>;"EXP DATE" 

260 PRINT #1:" "jTAB<25)j" ";TAB<45)| 

270 PRINT #1:" "jTAB<60>;" " 

280 FOR 1=1 TO M 
290 READ Tt 

300 IF T<="END" THEN 370 
310 READ NS,H«,A«,D$,A,L« 
320 IF T«<>"C" THEN 360 

330 PRINT #l:N«;TAB<25);H«5TAB(45);A*;TAB(60);D1i 
340 PRINT «1:A;TAB<25) ;L« 
350 PRINT ttl 
360 NEXT I 

370 IF AO«<>"Y" THEN 880 
380 RESTORE 

390 REM INSURANCE PROCESSING »|[t««««*«|[«««»«« 

400 PRINT #1 

410 PRINT «1:"INS TYPE/AMT" ; TAB <25) j "INSURED/COMPANY" j TAB <45) ; "POLICY «"| 
420 PRINT *»l:TAB<60)s"DATE" 

430 PRINT «1:" ";TAB<25)5" "; 

440 PRINT #l:TAB(45)i" ";TAB<60);" " 

450 FOR 1=1 TO M 
460 READ Jt 

470 IF T«="END" THEN 540 
480 READ N«,Ht»,A«,D«,A,L« 
490 IF T*<>"I" THEN 530 

500 PRINT «l:NS}TAB(25);Ht;TAB(45);A«;TAB(60);D« 
510 PRINT 4»1:A;TAB(25>;L« 
520 PRINT #1 
530 NEXT I 

540 IF AO«<>"Y" THEN 880 
550 RESTORE 

560 REM *|c«»««*«*«««««*««« SECURITIES PROCESSING »««|[«»*«««««««« 

570 PRINT #1 

580 PRINT ttl I "SECURITY/PRICE"; TAB <25) | "COMPANY" ; TAB < 45) ; "QTY" ; TAB <60> { 
590 PRINT «1:"DATE" 

600 PRINT «1:" "jTAB<25>;" ";TAB<45); 

610 PRINT #1:" ";TAB{60);" " 

620 FOR 1=1 TO M 
630 READ T« 

640 IF T*="END" THEN 710 
650 READ N«,H»,A$,D«,A,L$ 
660 IF T«<>"S" THEN 700 

670 PRINT ttltN«;TAB(25);H«;TAB(45>;A«;TAB(60))D« 
680 PRINT ttlsA;TAB(25) ;L« 
690 PRINT «1 
700 NEXT I 
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710 IF AO*<>"Y" THEN B80 
720 RESTORE 

730 REM ««««««»««*«««««**« MORTGAGE PROCESSING «»»«««««««««««««« 

740 PRINT *1 

750 PRINT #1 8 "PROPERTY/ AMOUNT" ; TAB (25) ; "NAME" | TAB <45) ; " YRS" ; 
760 PRINT #1:TAB<60);"PRCH DATE" 

770 PRINT #1:" ";TAB<25)j" "|TAB<45)i 

780 PRINT #1:" ";TAB(60)i" " 

790 FOR 1=1 TO M 
BOO READ T« 

810 IF T*="END" THEN 880 
820 READ N$,H$,A$,D$,A,L« 
830 IF T«<>"M" THEN 870 

840 PRINT #l:N*;TAB(25);Hiti;TAB(45)5A«;TAB(60);D* 
850 PRINT #l:A;TAB<25)jL« 
860 PRINT #1 
870 NEXT I 

880 REM «»««««»««««««««»«« PROGRAM TERMINATION POINT ««««««««««» 

890 PRINT 
900 PRINT 
910 STOP 

920 REM «««*»»«!K«««««iic«*!K« DATA ENTRIES FCLLOM «»««««««««*«««««« 
930 DATA I, LIFE INSURANCE, JOHN A JONES, 12-23456, JUNE 5 1979,30000 
940 DATA ANY INSURANCE COMPANY TOPEKA KANSAS 

950 DATA CjCARD BRAND X,JOHN OR JUDY DOE, 22 786 28982 1,0CT 1980 
960 DATA 500. 00, CARD OFFICE BOX 1415 TOPEKA KANSAS 

970 DATA S, COMMON STOCK, ABC CORP, 100, JUN 5 1979, 1234. 46, SAFE DEPOSIT BOX 
980 DATA C, CREDIT CARD Y,JOHN DOE, 11 234 12, NOV 1980 
990 DATA 1000, ABC INC BOX 123 MIAMI FLORIDA 

1000 DATA M,1234 LORA PLACE, JOHN OR JUDY DOE, 30, JUN 11 1979,35000 
1010 DATA MORTGAGE AAA SERVICE DAYTON OHIO 42401 
1020 DATA END 
1030 CLOSE #1 



>RUN 

DO YOU WISH TO PRINT ALL 
ENTRIES <Y OR N)? 
? Y 



CREDIT CARD/LIMIT 

CARD BRAND X 
500 

CREDIT CARD Y 
1000 



NAME/NOTIFY 



NUMBER 



EXP DATE 



JOHN OR JUDY DOE 22 786 28982 1 OCT 1980 
CARD OFFICE BOX 1413 TOPEKA KANSAS 



JOHN DOE 11 234 12 

ABC INC BOX 123 MIAMI FLORIDA 



NOV 1980 



INS TYPE/AMT 

LIFE INSURANCE 
30000 



INSURED /COMPANY 



POLICY # 



DATE 



JOHN A JONES 12-23456 JUNE 5 1979 

ANY INSURANCE COMPANY TOPEKA KANSAS 



SECURITY/PRICE 

COMMON STOCK 
1234.46 



COMPANY QTY 

ABC CORP 100 
SAFE DEPOSIT BOX 



DATE 
JUN S 1979 



PROPERTY/AMOUNT 

1234 LORA PLACE 
35000 



NAME 



YRS 



PRCH DATE 



JOHN OR JUDY DOE 30 JUN 11 1979 

MORTGAGE AAA SERVICE DAYTON OHIO 42401 
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>RUN 

DO YOU WISH TO PRINT ALL 
ENTRIES <Y OR N)? 
? N 

SHALL I PRINT CREDIT 
CARDS ( C ) , I NSUR ANCE ( I ) , 
SECURITIES <S> , OR 
MORTGAGES (M)? 
? I 

INS TYPE/AMT INSURED/COMPANY POLICY « DATE 



LIFE INSURANCE JOHN A JONES 12-23456 JUNE 5 1979 

30000 ANY INSURANCE COMPANY TOREK A KANSAS 



I- 


MAJOR 


SYMBOL TABLE - FINANCIAL RECORDS 


I 


NAME 


DESCRIPTION 


I 


M 


«• MAXIMUM NUMBER OF DATA READS 


I 


Al$ 


PRINT INDICATOR 


I 


It 


RECORD TYPE CODE 


I 


at 


CARD NAME/INSURANCE/SECURITY TYPE/PROPERTY 


I 


Ht 


NAME OF HOLDER 


I 


M 


ACCT NBR/QTY/YEARS 


I 


D$ 


DATE 


I 


A 


*• AMOUNT/LIMITATION 


I 


L« 


LOCATION/ADDRESS 



I 

FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINE 
I 
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INCOME TAX RECORDING 



Description 

This program can assist you in recording/computing the various items 
required for State and Federal income tax reporting. While it cannot 
produce the completed forms for you (because of changing laws and 
forms), it can assist with the tedious job of accumulating your results. 

Functions of the Program 

The program initializes the various income/deduction categories first. 
As the program exists in the listing provided, the first eight items arc 
considered to be income categories. Item number 8 is not defined. The 
remaining items are the expense (deduction) categories. All data items 
are read to accumulate income items. Following the completion of 
reading the income items, the data is restored and the process is re- 
peated for the expense categories. 

Instructions for Use 

Prior to running the program, the income and deduction items must be 
entered using DATA statements. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

The format for both income and expense items is the same: 

I or D, Detailed item type code. Amount, Explanation 
See examples provided. 

Output Description 

See example provided. Output is produced in separate sections for 
income and deductions. Subtotals and totals are produced for all 
categories. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Suggested Enhancements 

This program could easily be modified to accept input from disk or 
tape files that were accumulated throughout the year. 

Comments 

The results will be no better than the data provided. 
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10 CALL CLEAR 

20 REM INCOME TAX RECORD INS PROGRAM 

30 REM ««««t»««>«»««« OPEN STATEMENT FOR PRINTER ***t«****«**tt 

40 REM «»« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT «*« 
50 OPEN #ls"RS232.BA«9600.DA=B" 

60 REM t«««««*»««««*»«**««t***«*«**«**««*******«****t«****t***« 

70 REM NOTE THIS PROGRAM CAN BE EXTREMELY USEFUL IN MAINTAINING 

80 REM THE INFORMATION THAT YOU NEED TO PREPARE YOUR INCOME TAX, 

90 REM AND IT WILL HELP YOU CATEGORIZE YOUR TAX FORM ITEMS. IT 

100 REM CANNOT HOWEVER CONFUTE YOUR TAX FOR YOU. THE CHANGING TAX 

110 REM LAWS AND FORMS REQUIRE YOUR DECISION MAKING IN THE PROCESS. 

120 REM tt******************************************************* 

130 REM »*«««««»*»«*»««««» DATA INITIALIZATION tttttttttttt***** 

140 M»18 

150 MO" 10000 

160 Ml»8 

170 DIM Cl«(18) 

IBO DIM Dl«(18) 

190 C1«<1)="W" 

200 D1«(1)«"WA6ES" 

210 Cl*(2)="B" 

220 Dl«<2> ""BUSINESS/PROFESSION INCOME" 

230 C1*<3)«="F" 

240 D1«<3)-"FARM INCOME" 

250 Cl«(4>o"I" 

260 Dl«<4)«" INTEREST INCOME" 

270 C1«<5)="D" 

260 D1$<5)°>"DIVIDENDS" 

290 Cl«<6)""R" 

300 D1«(6)="RENT/R0YALTY INCOME" 

310 Cl«<7)»"0" 

320 Dl* (7) ""OTHER INCOME" 

330 C1«(9)="M" 

340 Dl« (9) ""MOVING EXPENSES" 

350 C1«<10)="C" 

360 Dl«( 10) ""CONTRIBUTIONS" 

370 Cl»(ll)»"I" 

3B0 D1«<11)""INTEREST EXPENSES" 

390 Clt<12)""T" 

400 Dl«( 12) ""TAXES PAID" 

410 C1»<13)="MD" 

420 Dl«< 13) ""MEDICAL/DENTAL" 

430 C1*<14)""CT" 

440 Dl«< 14) ""CASUALTY/THEFT" 

450 C1»<15)="E" 

460 Dl t < 15) ""ENTERTAINMENT/TRAVEL" 
470 C1«(16)""B" 

480 D1S( 16) ""BUSINESS EXPENSE" 

490 C1«<17)="MI" 

500 D1<<17)""MISC EXPENSE" 

510 Cl«<ia)""0" 

520 Dl«< 18) ""OTHER EXPENSES" 

530 REM »»» INCOME CATEGORIES ARE FIRST 8 POSITIONS OF THE ARRAY «*« 
540 REM »»«»»«««««»«»»«*«« END OF CAREGORY ARRAY INPUTS *♦*««*** 
550 REM *»»»««»«»* PRINT OF INCOME ITEMS-BY CATEGORIES »»»»«««»» 
560 PRINT "ALIGN TO TOP OF PAGE" 
570 INPUT G« 

580 PRINT «l:"t«««»»»»««*»**»»««**««»»» INCOME »t*»«»t»**«»»»*»»«*»»*»»«" 

590 FOR J"l TO Ml 
600 PRINT ttl:Dl«(J) 
610 FOR I"l TO MO 
620 READ T« 

630 IF T«""END" THEN 700 

640 READ CS,D,S« 

650 IF T*<>"I" THEN 690 

660 IF C«<>C1«(J)THEN 690 

670 PRINT «1:TAB(S);SS;TAB(50))D 

680 T1"T1+D 

690 NEXT I 

700 PRINT 4»l:TAB<42);"T0TAL"jTAB<50);Tl 
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710 T2=T2+Ti 
720 T1=0 

730 PRINT #1:" " 

740 RESTORE 
750 NEXT J 
760 RESTORE 

770 PRINT #l!TAB<36); "TOTAL INCOME" j TAB <50) >T2 
780 T2=0 
790 T1=0 
BOO J0=J 

810 REM «*«***«««»* END OF INCOME - START DEDUCTION PRINT »«*»*t 

820 PRINT #1: "«*«««««»*«««««««««««««« DEDUCTIONS t*******t***t**t*$it***f 

830 FOR J=JO TO M 
840 PRINT #1:D1*<J) 
850 FOR 1=1 TO MO 
860 READ T« 

870 IF T$="END" THEN 940 

880 READ C$,D,S$ 

890 IF T*<>"D" THEN 930 

900 IF C*<>C1*(J)THEN 930 

910 PRINT #lsTAB<5) ;S*;TAB(50) ;D 

920 T1=T1+D 

930 NEXT I 

940 PRINT #1:TAB(42) ;"T0TAL";TAB<50) jTl 

950 PRINT #1:" •• 

960 T2=T2+T1 
970 T1=0 
980 RESTORE 
990 NEXT J 

1000 PRINT #1:TAB<32>; "TOTAL DEDUCTIONS" ; TAB (50) |T2 
1010 T2=0 
1020 Tl=a 

1030 REM *»***««««**«**««««*«««««*«*«««*»*«««$««»*«««*«*«*««««»»« 
1040 REM *««*»«»**»«*«» DATA ENTRIES FOR INITIALIZATION «**«««»«« 
1050 REM ***«««**««*«««««« DATA ENTRIES FOLLOW ««««»«««*«««««»««« 

1060 DATA I, W, 13. 45, EMPLOYER 1 
1070 DATA I, W, 8900. 46, EMPLOYER 2 
1080 DATA I, I,. 09, BANK OR SAVINGS AND LOAN 1 
1090 DATA I, B, 14. 35, SIGN PAINTING FOR XYZ CORP 
1100 DATA I,B, 13.63,SIGN PAINTING FOR COMPANY XYZ 
1110 DATA I, D,. 41, DIVIDEND PAID BY ABC INC. 
1120 DATA D,C, 14. 89, CHURCH ABC 
1130 DATA D,C, 15.12,XYZ CHARITY 

1140 DATA D,MD, 200. 00, DOCTOR Z FOR HOSPITAL VISIT 

1150 DATA D, MD, 50. , DENTIST Q FOR FILLINGS 

1160 DATA D, I, 45. 00, AAA CREDIT CORP 

1170 DATA D,CT,13.89,THEFT OF TAPE RECORDER 

1180 DATA D, MI, 2. 50, INCOME TAX PREPARATION 

1190 DATA D,E, 13. 45, BUSINESS LUNCH ON 12 JUN WITH MR X-MR V 
1200 DATA D,B, 12. 10, PAINT FOR SIGN PAINTING 
1210 DATA END 
1220 CLOSE #1 



>RUN 

ALIGN TO TOP OF PAGE 

? 

«««««««««*«»»««««»««|[«t»« INCOME »«»««»m««««*««*«t«*mt 

WAGES 

EMPLOYER 1 13.43 

EMPLOYER 2 S900.46 

TOTAL 8913.91 



BUSINESS/PROFESSION INCOME 

SIGN PAINTING FOR XYZ CORP 14.35 

SIGN PAINTING FOR COMPANY XYZ 13.63 

TOTAL 27.98 



FARM INCOME 

TOTAL 
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INTEREST INCOME 

BANK OR SAVINGS AND LOAN 1 .09 

TOTAL .09 

DIVIDENDS 

DIVIDEND PAID BY ABC INC. .41 

TOTAL .41 



RENT/ROYALTY INCOME 

TOTAL 

OTHER INCOME 

TOTAL 



TOTAL 

TOTAL INCOME 8942.39 
tt*»«««««*****«*«*««**t DEDUCTIONS *«»«««»»**««««*«««*«««« 

MOVINS EXPENSES 





TOTAL 





CONTRIBUTIONS 
CHURCH ABC 
XYZ CHARITY 


TOTAL 


14.89 
15.12 
30.01 


INTEREST EXPENSES 
AAA CREDIT CORP 

TOTAL 


45 
45 


TAXES PAID 

TOTAL 





MEDICAL/DENTAL 

DOCTOR Z FOR HOSPITAL VISIT 
DENTIST Q FOR FILLINQS 


TOTAL 


200 

50 

250 


CASUALTY/THEFT 

THEFT OF TAPE RECORDER 


TOTAL 


13.89 
13.89 


ENTERT A I NMENT/ TRAVEL 

BUSINESS LUNCH ON 12 JUN WITH MR 


X-MR Y 

TOTAL 


13.45 
13.45 


BUSINESS EXPENSE 

PAINT FOR SIGN PAINTING 


TOTAL 


12.1 
12.1 


MISC EXPENSE 

INCOME TAX PREPARATION 


TOTAL 


2.5 
2.5 


OTHER EXPENSES 


TOTAL 






TOTAL DEDUCTIONS 366.95 
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HAJOR SYMBOL TABLE - INCOME TAX RECORDING 



NAME 






M 




MAXIMUM NUMBER OF CATEGnRT^S 


MO 




MAXIMUM NUMBER OF DATA READS 


Ml 




NUMBER OF INCOME CATEGORIES 


Cl«( 




MASTER CATEGORY CODE ARRAY 


Dl$( 


>•• 


MASTER CATEGORY DESCRIPTION ARRAY 


T» 




INCOME/DEDUCTION CODE 


C« 




TRANSACTION CATEGORY CODE 


D 




TRANSACTION AMOUNT 


Sf 




TRANSACTION DESCRIPTION 


Tl 




SUBTOTAL INCOME/DEDUCTIONS 


T2 




TOTAL INCOME/DEDUCTIONS 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


* * 


FORMATS PRINT LINE 


ARRAYS* • 


SINGLE DIMENSION 
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STOCKS 

Description 

This program can assist the investor in analyzing and keeping track of 
current holdings. There are three options available: 

1. Listing transactions 

2. Listing current holdings after computing the results of all buy/sell 
transactions and stock splits 

3. Producing a profit/loss analysis for specific stocks owned. 

Functions of the Program 

The program accepts all entries from DATA statements, interprets the 
transaction code, and produces the listing desired. The data expected 
for each type of transaction differs as shown below. 

Instructions for Use 

Transactions are entered in DATA statements prior to running the 
program. The data should be updated as transactions occur but can be 
gathered and entered just prior to a run. 

How to Enter Data 

All data is entered using DATA statements. 
Data Formats 

See examples. Data formats differ for each transaction type, as follows: 

1. Buy transactions: 

B, Company name. Stock symbol, Exchange, Date purchased, 
Price per share. Quantity of shares, Commission paid 

2. Sell transactions: 

S, Company name. Stock symbol, Exchange, Date purchased, 
Price per share, Quantity, Commission paid 

3. Dollar dividends: 

D, Stock symbol. Dividend amount per share, Date of dividend. 
Shares of record for dividend 

4. Share dividends: 

SD, Dividend per share. Date of dividend, 
Shares of record for dividend 

5. Stock splits: 

SS, Shares after split. Shares before split. Date of Split, 
Shares of record for split 

Output Description 

See examples provided. Three forms of output are available; each has 
easily readable headings for clarity and ease of interpretation. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 
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10 CALL CLEAR 

20 REM STOCK MARKET RECORD PROGRAM 

30 REM *************** OPEN STATEMENT FOR PRINTER ************* 
40 REM ««» CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT ««« 
SO OPEN «1;"RS232.BA=9600.DA=B" 

60 REM ******************* DATA INITIALIZATION **************** 

70 M1=S0 

SO M=1000 

90 DIM SI* (50) 

100 DIM Cl«(30) 

110 DIM Ql(30) 

120 DIM PI (50) 

130 Nl°l 

140 S«0 

ISO M0=0 

160 DIM Tl«<6) 

170 T1«<1)="B0USHT" 

180 T2$<1)="B" 

190 T1«(2)="S0LD" 

200 T2*<2)""S" 

210 T1*<3)="D0LLAR DVD" 

220 T2*<3)="D" 

230 T1«<4)»"SHARE DVD" 

240 T2«<4)="SH" 

250 T1«<5)="STK SPLIT" 

260 T2$<5>""SS" 

270 Tl*(6>="«»»«" 

280 PRINT 

290 PRINT "THE FOLLOWING OPTIONS ARE" s "AVAILABLE" 
300 PRINT 

310 PRINT "1... A LIST OF ALL" 5 TAB <6) > "TRANSACTIONS" 
320 PRINT "2... A LIST OF ALL CURRENT" ; TAB <6) ; "HOLDINGS" 
330 PRINT "3... THE PROFIT/LOSS ON A";TAB<6) > "GIVEN STOCK" 
340 PRINT 

350 PRINT "ENTER THE OPTION DESIRED"! »< 1, 2, OR 3)" 
360 INPUT Q 
370 PRINT 
380 PRINT 

390 IF 0O3 THEN 490 

400 PRINT "ENTER THE STOCK SYMBOL TO": "EVALUATE" 
410 INPUT X* 

420 PRINT "ENTER THE CURRENT PRICE OF" 1 "THE STOCK" 
430 INPUT V 

440 PRINT "ENTER THE CURRENT DATE" 
450 INPUT Dl* 
460 PRINT 
470 PRINT 

480 PRINT #li" TRANSACTION RECAP — "j X«jTAB(35) ;D1» 
490 PRINT 

500 REM ****************** PROCESSING AREA «»«t««««*«*««««*«*««* 

510 FOR 1=1 TO M 
520 READ T« 

530 IF T«="END» THEN 860 

540 IF T«="D" THEN 590 

550 IF T«="SS" THEN 650 

560 IF T«="SD" THEN 590 

570 READ C«,S«,E«,D«,P,Q,C 

580 GOTO 660 

590 READ S*,NO,D«,Q 

600 C«»" " 

610 E»»" " 

620 P«NO 

630 C»0 

640 GOTO 660 

650 READ S«,N0,N1,D«,Q 

660 FOR J=l TO MO 

670 IF S*=S1«(J)THEN 740 

680 NEXT J 

690 M0=M0+1 

70C S1*<M0)=S* 
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710 M1«=M0 
720 J=MO 
730 6DT0 750 
740 M1=J 

750 IF OOl THEN 780 

760 60SUB 1400 

770 GOTO 850 

780 IF 0O2 THEN 810 

790 GOSUB 1610 

BOO GOTO 850 

810 IF 0O3 THEN 850 

820 IF S«<>X« THEN 850 

830 GOSUB 1720 

840 GOTO 850 

850 NEXT I 

860 REM *«««*«*««**«««>« END OF MAIN PROCESSING LOOP «««|[«««t««« 

870 IF 0-1 THEN 1350 
880 IF 0O2 THEN 1100 
890 FOR I»l TO MO 

900 PRINT "ENTER THE CURRENT PRICE OF ";C1«<I>|" <";S1« <I) j ") " 
910 INPUT PI (I) 
920 NEXT I 
930 PRINT «1» 
940 PRINT #1 

950 PRINT #1: TAB <20>; "CURRENT STATUS OF HOLDINGS" 
960 PRINT «1 
970 PRINT #1 

980 PRINT #1 s "STOCK"; TAB (30); "SYMBOL"; TAB <40>;"QTY HELD" j TAB <50) j 
990 PRINT #l:"PRICE"jTAB(60>; "VALUE" 

1000 PRINT *»1J" "jTAB<30);" "jTAB<40)|" "(TAB (50)} 

1010 PRINT «1»" ";TAB<60)J" " 

1020 FOR 1=1 TO MO 

1030 PRINT «l:Cl«(I);TAB(30);Sl«(I);TAB(40)iQl(I);TAB(50>| 
1040 PRINT ttl:Pl<I);TAB(60);Pl(I>*Ql(I> 
1050 Te»T8-t-(Pl(I)«Ql<I)) 
1060 NEXT I 

1070 PRINT «1:TAB<60) 5 

1080 PRINT #1 : TAB (52); "TOTAL"; TAB (60) ;T8 

1090 GOTO 1270 

1100 IF 0O3 THEN 1350 

1110 PRINT All 

1120 PRINT #1 

1130 PRINT #liTAB(24) I "SUMMARY ANALYSIS" 
1140 PRINT «1 

1150 PRINT «1:TAB(9);"I SHARE COMM DVD I BOOK ";TAB(51)| 

1160 PRINT «1: "CURRENT I"; TAB (62) ; "CURRENT" 

1170 PRINT #1: TAB (2); "SHARES"; TAB (9); "I COST PAID RCVD"; 

1180 PRINT #1:TAB(39);"I TOTAL" ; TAB (52) ; "VALUE I";TAB (62) ; "POSITION" 

1190 PRINT ttl:" 1 r— I"; 

1200 PRINT ttl:TAB(41);" ";TAB(51);" l'';TAB(62) ; " " 

1210 PRINT #1:TAB(2) ;Q9;TAB(12) ;P9;TAB(24) ;C9;TAB(33) ;D9;TAB(40) ;V9| 
1220 PRINT «1:TAB(51);V«Q9;TAB(61); (V«Q9)-V9 
1230 IF S9°0 THEN 1270 
1240 PRINT *1:TAB(35);"»" 
1250 PRINT #1 

1260 PRINT «1:"* SHARE DIVIDEND OF "iS9;" SHARES" 

1270 PRINT #1 

1280 IF Q9=0 THEN 1350 

1290 PRINT ttl3TAB(28) ;D1« 

1300 PRINT «l:TAB(20);"«««**««*«t«t4E«««««««««««««*«««" 

1310 PRINT #1:TAB(23);"B00K VALUE IS ";V9/Q9 

1320 PRINT ttl:TAB(20) ;"*««**«***««*««»««««*«*«««***>*" 

1330 PRINT #liTAB(23); "CURRENT VALUE ";V 

1340 PRINT «lsTAB(20);"««4E«««««»*««»«l:««««**««*««t**«" 

1350 PRINT «1 

1360 PRINT #1 

1370 CLOSE #1 

1380 STOP 

1390 REM TRANSACTION INTERPRETATION ROUTINE «««««« 

1400 IF lOl THEN 1470 
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1410 PRINT #1 J TAB <28) 5 "TRANSACTION LIST" 
1420 PRINT #1 

1430 PRINT #ls "TRANS COMPANY" ; TAB <30) ; "SYB EX DATE" j TAB <51) > "PRICE" | 

1440 PRINT #1:TAB<60);"QTY";TAB(66);"C0MM" 

1450 PRINT #1:" ";TAB<30);" ";TAB<51);" "j 

1460 PRINT #1: TAB (60) J" ";TAB(66);" " 

1470 FOR J=l TO 5 

14B0 IF T«<>T2$<J)THEN 1510 

1490 L=J 

1500 GOTO 1530 

1510 NEXT J 

1520 L=6 

1530 IF L>2 THEN 1570 

1540 PRINT #1:T1*<L);TAB<10);C*;TAB<30);S$;TAB(34);E*; 
1550 PRINT #1:TAB<37>;D«;TAB(50);P;TAB<59);Q;TAB<65);C 
1560 GOTO 1600 

1570 PRINT #1:T1«(6);TAB<9);N0/N1;" " jT14 <L) 5TAB<30) ;S«;TAB<37> ;D«; 
1580 PRINT «liTAB<59);Q 
1590 Nl=l 
1600 RETURN 

1610 REM «**)|[*««i|[«i|[««]|c« ACCUMULATION ROUTINE FOR HOLDINGS ««««««« 

1620 C1«(J)°C$ 

1630 IF T*<>"B" THEN 1650 

1640 Ql (J)<=>Q1 (J)+Q 

1650 IF T$<>"S" THEN 1670 

1660 01 (J)>=Q1 (J)-Q 

1670 IF T*<>"SD" THEN 1690 

1680 Ql (J ) »Q1 (J ) + <N0*Q> 

1690 IF T*<>"SS" THEN 1710 

1700 Ql <J)»=<Q1 (J)-Q) + (Q*N0/N1) 

1710 RETURN 

1720 REM **«*«»*«**«*«*« ACCUMULATION ROUTINE FOR PROFIT/LOSS ««» 
1730 IF S^l THEN 1770 
1740 PRINT ttl:TAB<23) ;C* 
1750 PRINT «1 
1760 S°l 

1770 IF T«<>"B" THEN 1840 

1780 PRINT #lj"B0UGHT"}TAH(8>5QjTAB<13);" AT "sPiiTAB<25> ; "-";D$; 

1790 PRINT #l8TAB(37);" - CHARQESi "j TAB<4B) ;C5TAB(55> j " ("; <Q»P)+C; ") " 

1800 09=09+0 

J.810 C9=C9+C 

1820 P9=P9+<P*Q) 

1830 V9=>V9-f <Q«P>+C 

1840 REM HANDLES SALES *«*««*««»**»««««««««««« 

1850 IF T*<>"8" THEN 1920 

1860 PRINT #ls"S0LD";TAB<8) ;a;TAB<13);" AT ";P5TAB<25) j "-"jD*; 

1870 PRINT «l»TAB<37)r' - CHARGES: "j TAB (48) iC; TAB (55) ; " ("; (Q*P)-C; ") " 

1880 09=09-0 

1890 C9=C9+C 

1900 P9=P9-<P«Q) 

1910 V9=V9-(Q*P)+C 

1920 REM ****************** HANDLES DIVIDENDS ******************* 

1930 IF T«<>"D" THEN 1980 
1940 V9»V9-(a*N0) 
1950 D9=D9+(N0«Q) 

1960 PRINT ttl: "DIVIDENDS «»* OF ";N0;TAB<25) ; "-"iD«;TAB<38) ;Q;TAB<44) j 
1970 PRINT #1: "SHARES"; TAB (55) J" ("; (Q»NO) ; ") " 

1980 REM ***************** HANDLES SHARE DIVIDENDS ************** 
1990 IF T«<>"SD" THEN 2040 
2000 S9=S9+(N0»Q) 
2010 09=09+ <NO«Q) 

2020 PRINT #1: "SHARE DIV **« ";N0;TAB(25) ; "-";D$;TAB<3S) jQj TAB(44) J 
2030 PRINT #1: "SHARES DVD=";NO«Q;" SHARES" 

2040 REM **************** HANDLES STOCK SPLITS ****************** 

2050 IF T*<>"SS" THEN 2090 

2060 PRINT ttl:"STK SPLIT *** "jNO; "/";N1;TAB(25) ; "-"5D«sTAB<3B) iQjTAB(44) | 
2070 PRINT #1 I "SHARES" 
2080 Q9=(a9-Q)+(a*N0/Nl) 

2090 REM ***************** TOTAL PRINTING AREA ****************** 

2100 RETURN 
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2110 *****««****]|c«««««»«««DATA ENTRIES FOLLOW «««««««*««*«««« 

2120 DATA B,ABC CORP. , ABC,NY, JUN 5 1979,12-00,100,12.15 
2130 DATA B,XYZ CO. , XYZ, A, JUN 6 1979,100.22,200,35.33 
2140 DATA S,XYZ CO. , XYZ, A, OCT 7 1979,88.88,100,21.11 
2150 DATA D, XYZ, 3. 05, NOV 1979,100 
2160 DATA SS, XYZ, 3,1, DEC 31 1979,100 
2170 DATA SD, XYZ, .05, JAN 1 1980,100 

2180 DATA B,XYZ CO. , XYZ, A, JAN 31 1980,75.00,100,19.99 
2190 DATA S,ABC CORP. , ABC, NY, JAN 28 1980,14.00,50,4.55 
2200 DATA END 



>RUN 

THE FOLLOWING OPTIONS ARE 
AVAILABLE 

1... A LIST OF ALL 

TRANSACTIONS 
2... A LIST OF ALL CURRENT 

HOLDINGS 
3... THE PROFIT/LOSS ON A 

BIVEN STOCK 

ENTER THE OPTION DESIRED 
< 1, 2, OR 3) 
? 1 



TRANSACTION LIST 



TRANS 


COMPANY 


SYB 


EX 


DATE 


PRICE 


QTY 


BOUGHT 


ABC CORP. 


ABC 


NY 


JUN 5 1979 


12 


100 


BOUGHT 


XYZ CO. 


XYZ 


A 


JUN 6 1979 


100.22 


200 


SOLD 


XYZ CO. 


XYZ 


A 


OCT 7 1979 


88.88 


100 


«««« 


3.05 DOLLAR DVD 


XYZ 




NOV 1979 




100 


«««* 


3 STK SPLIT 


XYZ 




DEC 31 1979 




100 


*««* 


.05 *««« 


XYZ 




JAN 1 1980 




100 


BOUGHT 


XYZ CO. 


XYZ 


A 


JAN 31 1980 


75 


100 


SOLD 


ABC CORP. 


ABC 


NY 


JAN 28 1980 


14 


50 



COMM 

12.15 
35.33 
21.11 



19.99 
4.55 



>RUN 

THE FOLLOWING OPTIONS ARE 
AVAILABLE 

1... A LIST OF ALL 

TRANSACTIONS 
2... A LIST OF ALL CURRENT 

HOLDINGS 
3... THE PROFIT/LOSS ON A 

BIVEN STOCK 

ENTER THE OPTION DESIRED 
( 1, 2, OR 3) 
? 2 



ENTER THE CURRENT PRICE OF 
ABC CORP. (ABC) 
7 98.85 

ENTER THE CURRENT PRICE OF 
XYZ CO. <XYZ> 
? 67.89 
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CURRENT STATUS OF HOLDINGS 



STOCK SYMBOL QTY HELD PRICE VALUE 



ABC CORP. ABC 50 98. 8S 4942.5 

XYZ CO. XYZ 405 67.89 27495.45 



TOTAL 32437.93 

>RUN 

THE FOLLOWINQ OPTIONS ARE 
AVAILABLE 

1... A LIST OF ALL 

TRANSACTIONS 
2... A LIST OF ALL CURRENT 

HOLDINGS 
3... THE PROFIT/LOSS ON A 

6IVEN STOCK 

ENTER THE OPTION DESIRED 
( i, 2, OR 3) 
? 3 



ENTER THE STOCK SYMBOL TO 

EVALUATE 

7 XYZ 

ENTER THE CURRENT PRICE OF 
THE STOCK 
7 55.25 

ENTER THE CURRENT DATE 
7 JUN 19 1980 



TRANSACTION RECAP — XYZ 
XYZ CO. 



JUN 19 1980 



BOUGHT 200 AT 100.22 -JUN 6 1979 - CHARGES: 35.33 < 20079.33 ) 



SOLD 100 AT 88.88 
DIVIDENDS *«« OF 3.05 
STK SPLIT «*« 3/1 
SHARE DIV «»« .05 
BOUGHT 100 AT 75 



-OCT 7 1979 - CHARGES: 21.11 < 8866.89 ) 
-NOV 1979 100 SHARES < 305 ) 

-DEC 31 1979 100 SHARES 

-JAN 1 1980 100 SHARES DVD" 5 SHARES 
-JAN 31 1980 - CHARGES: 19.99 ( 7519.99 ) 



SUMMARY ANALYSIS 



I SHARE 
SHARES I COST 

405 18656 



« SHARE DIVIDEND OF 



COMM 
PAID 

76.43 

5 SHARES 



DVD I BOOK 
RCVD I TOTAL 

305 18427.43 



CURRENT I CURRENT 

VALUE I POSITION 
I 

22376.25 3948.82 



JUN 19 1980 
BOOK VALUE IS 45.49982716 
CURRENT VALUE 55.25 



BREAK IN 1340 
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MAJOR SYMBOL TABLE - STOCKS 



I 


NAME 


• • 


DESCRIPTION : 


I 


M 


• • 


MAXIMUM NUMBER OF DATA READS : 


I 


Slf ( 


>• • 


ARRAY OF STOCK SYMBOLS : 


I 


Cl$( 


>•• 


ARRAY OF COMPANY NAMES ] 


I 


Ql( ) 


• • 


ARRAY OF QTY HELD 


I 


Pl< ) 


• • 


ARRAY OF PRICES PAID 


I 


Tl*( 


> • « 


MASTER CATEGORY CODE ARRAY 


I 


T2$( 


)•• 


nASTEK CflTcuUKT UbsLKxr 1 lUN Hnr\Hi J 


I 





• • 


OPTION NUMBER 


I 


X$ 


* • 


STOCK SYMBOL TO EVALUATE 


I 


V 


• • 


CURRENT PRICE OF STOCK 


I 


Dl$ 


« • 


CURRENT DATE 3 


I 


T$ 




TRANSACTION CATEGORY CODE 


I 


C$ 


• • 


TRANSACTION COMPANY NAME ] 


I 


S$ 


« * 


TRANSACTION STOCK SYMBOL : 


I 


E$ 


• • 


TRANSACTION EXCHANGE ] 


I 


Df 


• • 


TRANSACTION DATE ] 


I 


P 


• • 


TRANSACTION PRICE : 


I 


Q 


• • 


TRANSACTION QTY 3 


T 
X 


C 


• • 


TRANSACTION COMMISSION COST ] 




FUNCTIONS USED 


I 


NAME 


• • 


DESCRIPTION 


I 


TAB 


• • 


FORMATS PRINT LINE 



I GOSUB BRANCHES AND RETURNS 
I DIM SINGLE DIMENSION ARRAY 
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Auto Maintenance 

Gasoline Use Computation— Basic Version 
Gasoline Use Computation— Extended Version 
Automobile Comparisons 
Trip Planning— Basic Version 
Trip Planning— Extended Version 
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Description 

Automobiles are increasing in price every day. This program will assist 
you in insuring that recommended maintenance (service) actions are 
taken to protect your investment. In addition, it provides an ideal 
record for showing to prospective buyers. 

Functions of the Program 

The program reads the data items that reflect the manufacturer's recom- 
mended maintenance schedules and the service accomplished by you. 
The basic schedule items are extended by the program (based upon 
mileage) through the current mileage on the vehicle. Maintenance sched- 
ules and records are printed, as requested. 

Instructions for Use 

Data entries of all recommended service items in the automobile owner's 
manual must be entered into the program prior to running. Service per- 
formed should be entered as it is accomplished. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

Three formats are required: 

1. The first item is the automobile's purchase date: 

Month, Year 

2. Basic manufacturer recommended service schedules are then added 
in the following form: 

Service code. Description, Frequency in miles, 
Frequency in months 

3. Service accomplished is entered in the following form: 

Service code. Mileage, Month, Year 
Note that an END card is required to separate the basic service re- 
quirements from the items accomplished. 

Output Descripdon 

See example provided. Three outputs are available: 

1. A list of the basic maintenance requirements and their frequency. 

2. A detailed list of maintenance accomplished. 

3. A schedule of the next scheduled accomplishment of each of the 
service requirements. 



Automobile Related Programs 



10 CALL CLEAR 

20 REM AUTOMOBILE MAINTENANCE RECORD-BASIC 

50 REM »«»«««««» DATA INITALIZATION «»««*«**»»»«««« 

40 M0=2S 

50 10° 1000 

60 DIM M(25) 

70 DIM I* (23) 

eO DIM C«(2S) 

90 DIM LK2S) 

100 DIM L1«<2S> 

110 DIM D0«(12) 

120 FOR I»l TO 12 

130 READ DO«(I) 

140 NEXT I 

150 READ T1«,Y1 

160 DIM T(25) 

170 REM »*«««««*«*«»« MAIN PROCESSING AREA «t*<t«««t* 

180 REM »««««« READ INITIAL SCHEDULES 

190 FOR 1=1 TO MO 

200 READ C$(I) 

210 IF C«<I)="END" THEN 240 

220 READ I«(I>,M(I),T(I) 

230 NEXT I 

240 M0°I-1 

250 PRINT "WOULD YOU LIKE TO SEE THE"; "BASIC SCHEDULE <Y OR N)?" 

260 INPUT A* 

270 IF A*<>"Y" THEN 330 

280 PRINT " ITEM"; TAB (14) J "MILES"; TAB (21) I "MONTHS" 

290 PRINT " " 

300 FOR 1=1 TO MO 

310 PRINT I«<I);TAB(13);M(I);TAB(21);T(I) 
320 NEXT I 

330 REM «*««»* PRINTS MAINTENANCE RECORD *»«««««»»«««« 

340 PRINT 
350 PRINT 

360 PRINT "ENTER CURRENT MILEAGE" 
370 INPUT Ml 

380 PRINT "SHALL I PRINT THE" I "MAINTENANCE RECORD <Y OR N)?" 
390 INPUT A* 

400 PRINT "ALIGN PAPER FOR PRINTING" 

410 INPUT Al« 

420 IF A«<>"Y" THEN 500 

430 PRINT "«««««»««»»»««*«««««««»«»««««" 

440 PRINT 

450 PRINT "RECORD OF SCHEDULE"! "MAINTENANCE ACCOMPLISHED" 
460 PRINT 

470 PRINT " ITEM" I TAB < 10) ;" AT MILES" ; TAB <20) ; " DATE" 

480 PRINT " " 

490 REM 
500 K=l 
510 READ C9$ 

520 IF C9«="END" THEN 690 

530 READ M9,M9«,Y9 

540 FOR 1=1 TO MO 

550 IF C9«<>C«(I)THEN 600 

560 IF L1<I)>»M9 THEN 590 

570 L1<I)=M9 

580 L1«(I)»M9« 

590 GOTO 610 

600 NEXT I 

610 IF A*<>"Y" THEN 670 

620 FOR 1=1 TO MO 

630 IF C9«=C«<I)THEN 660 

640 NEXT I 

650 I«<I)«" " 

660 PRINT I«(I);TAB(10);M9;TAB(20);M9«;Y9 
670 K=K+1 

680 IF K<=10 THEN SIO 
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690 PRINT 
700 PRINT 

710 PRINT "««*»*««««««««*««««««««*««»*" 

720 PRINT 

730 PRINT "SCHEDULED MAINTENANCE"! "BASED UPON MILEAGE" 
740 PRINT 

7S0 PRINT " ITEM"! TAB (8)1" FREQ";TAB<1&) | "LA8T"»TAB<21> | " SCHED" 

760 PRINT " " 

770 REM 

780 FOR J=l TO MO 
790 I=L1<J)+M<J) 
800 IF I>M1 THEN 820 
810 X«="»" 

820 PRINT I«(J)iTAB<8)iM(J);TAB<15);Ll(J)|TAB<22);I;XS 

830 X«=" " 
840 NEXT J 
850 PRINT 

860 PRINT "CURRENT MILEAGE IS ";M1 
870 PRINT 

880 PRINT "»**««««»*«*«*«*««**«««**«««(" 

890 REM »«»«»«»«»« PROGRAM TERMINATION POINT «*t**«»«t> 
900 PRINT 
910 PRINT 
920 STOP 

930 REM ««*«*««««« DATA FOR INITIALIZATION «*«««««««»«« 

940 DATA JAN, FEB, MAR, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOV, DEC 

950 REM ««*«««« DATA ENTRY FOLLOWS 

960 DATA JUN, 1978 

970 DATA 0ILF,0IL FIL, 12000,12 

980 DATA AIRF,AIR FIL, 12000, 12 

990 REM 

1000 DATA LUBE, LUB, 12000,12 
1010 DATA CHKTW,TIRE WEAR, 3000, 3 
1020 DATA CHKAL,CK ALIG,4000,4 
1030 DATA END 

1040 DATA OILF, 13000, JUN, 1979 
1050 DATA LUBE, 11000, MAY, 1979 
1060 DATA END 



^BnULD YnU^LIKE TO gEE.THE 
|R|IC SCHEDULE <Y OR N>? 



■ ITEM MILES MONTHS 




ENTER CURRENT MILEAGE 
?. 13700 




ALIGN PAPER FOR PRINTING 



«««*«««««»«»««««*««««•»*«**«» 



Bs?B¥iN85ci^SEEahpLisHED 



ITEM AT MILES DATE 



OIL FIL 13Q0Q JUN 197 

LUB lIOOO MAY 197 
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* -k «««•»*•***»«»»»**»«*«»««*« 

igg|g"biSN"S5t!iiyi''" 

ITEM FREQ LAST SCHED 



J3000 
1 1000 



?! 

23000 



LUB 12000 
TIRE WEfig 

CK RLIG 4000 8 S888 * 

CURRENT MILER6E IS 13700 
«««»««««.**«*»«*««#«««*«««««« 





HAJOR 


SYHBOL TABLE - AUTO HAINTENANCE 


I 

« 


NAHE 


* « 


DESCRIPTION 


I 


HO 




NUHBER OF HASTER SERVICE ITEHS 


I 


10 




HAXIHUH NUHBER OF DATA READS 


I 


M( ) 




HASTER HILEAGE ARRAY 


I 


I«< 




HASTER SERVICE RQKNTS ARRAY 


I 


C$< 


> 


HASTER CODE FOR SERVICE ITEHS ARRAY 


I 


Ll( 


> 


LATEST SERVICE -HILEAGE ARRAY 


I 


Li%< 


>•• 


LATEST SERVICE -HONTH ARRAY 


I 


D0$< 




HONTH NAHE ARRAY 


I 


T< ) 




HASTER TIHE ARRAY 


I 


Tlf 




PURCHASE HONTH 


I 


Yl 




PURCHASE YEAR 


I 


HI 




CURRENT HILEAGE 


I 


C9« 




TRANSACTION CODE IN 


z 


H9 




TRANSACTION HILEAGE IN 


I 


H9t 




TRANSACTION HONTH IN 


I 


Y9 




TRANSACTION YEAR IN 




FUNCTIONS USED 


I 
I- 


NAHE 


• • 


DESCRIPTION 


I 


TAB 


• « 


FORHATS PRINT LINES 


I 


DIH 


• • 


SINGLE DIHENSION ARRAYS 
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GASOLINE USE COMPUTATION - BASIC VERSION 



Description 

The rising cost of gasoline makes this program more useful each day 
since it allows you to compute the current average miles per gallon for 
your automobile(s). 

Functions of the Program 

The program requests from you the initial mileage for the period and 
the date that the recording period started. Following this, the gasoline 
used during the period is entered along with the mileage at the end of 
the period. The program then computes miles driven, total gasoline 
used, and the average miles per gallon for the period. 

Instructions for Use 

Record your mileage and the gasoline used prior to running the pro- 
gram. Supply this information in response to the program's request. 

Data Entry 

All data is entered in response to the program's request, through the 
keyboard. 

Output Description 
See example provided. 

Suggested Enhancements 

See the extended version for historical recordkeeping functions. 



10 CALL CLEAR 

20 REM GASOLINE MILEAtSE ANALYSIS 

30 REM «««$«»*«*««*«><«» DATA INITIALIZATION »«$tt««tt«>««»*«t 

40 M»iOOO 

SO PRINT "ENTER THE INITIAL MILEAGE, " I "DATE OF RECORDING" 
60 INPUT MO, DO* 

70 PRINT "ENTER THE GASOLINE UBED"i"(0 hWEN FINISHED)" 

so FOR I»l TO M 

90 6=0 

100 INPUT 6 

110 IF GbO then 140 

120 GloGl+G 

130 NEXT I 

140 PRINT "ENTER ENDING MILEAGE, DATE- 
ISO INPUT M9,D9» 

160 REM *«*««»««*»«««««t«>« PROCESSING AREA t«»»»t»««««t»»«**«« 

170 M=M9-M0 
180 C^M/Gl 
190 PRINT 
200 PRINT 

210 PRINT "»»»»»*«»»««»»«»t»»»»t»«tt»»" 

220 PRINT "FOR THE PERIOD "|D0*| "-"jD9» 

230 PRINT " MILES DRIVENi"lM 

240 PRINT " GASOLINE USEDi"»Ql 

2S0 PRINT " AVQ MILES/GALLONj "|C 

260 PRINT ••«<*««««««««««««««<«««««****" 
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270 REM ««««««««»«»»«»» PROGRAM TERMINATION POINT «*»«««««»«»««» 

280 PRINT 
290 PRINT 
300 STOP 




ILERGE* 



0000, JUL 5 1983 
ER THE GRSOLINE USED 
QHEN FINISHEI)> 
O 



EP^ENDING^MILEflGE, DATE 
1000*JUL 20 1983 



♦♦*♦*♦*»»***♦***»***»**#*»♦ 



58E 



HE^ PERIOD 
0-1983 
L-ES.DgiyENs 



JUL 3 1983- 

1000 
100 



MAJOR SYMBOL TABLE - GASOLINE USE - BASIC 



NAME 


• • 


DESCRIPTION 


M 


• • 


MAXIMUM NUMBER OF DATA READS 


MO 


• • 


INITIAL MILEAGE 


D0$ 


• • 


DATE OF INITIAL MILEAGE 


6 


• * 


GASOLINE USED 


61 


• • 


TOTAL GASOLINE USED 


M9 


* • 


ENDING MILEAGE 


D9$ 


• « 


DATE OF ENDING MILEAGE 


M 


• * 


MILES DRIVEN 


C 


• * 


AVERAGE MILES/GALLON 
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GASOLINE USE COMPUTATION - EXTENDED VERSION 



Description 

This program extends the basic version shown previously by adding a 
historical record of gas mileage and consumption. 

Functions of the Program 

See the basic version. This program adds to these functions the capa- 
bility to print data items from past periods. After each analysis, the 
format to be supplied for historical use is printed for you. 

Instructions for Use 

Record your mileage and gas consumption prior to running the pro- 
gram. After processing, enter the information as DATA statements in 
accordance with the instructions given. 

Data Entry 

Current information is entered in response to program request. His- 
torical information is entered using DATA statements. 

Data Formats 

The format of the historical data is as follows: 

Starting month-day-year, Ending month-day-year, 
Ending mileage, Miles driven during period, Gasoline used 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM GASOLINE USE COMPUTATION 

30 REM »««»»»««««»««««* DATA INITIALIZATION »««*«»««»««««*tt<«« 

40 M=1000 

50 PRINT "DO YOU WISH TO ANALYZE PAST"i"<P), OR CURRENT <C) DATA"| 

60 INPUT A* 

70 IF A*="P" THEN 390 

80 PRINT "ENTER THE INITIAL MILEAGE, "« "DATE OF RECORDING"! 
90 INPUT MO, DO* 

100 PRINT "ENTER THE GASOLINE USED (0 WHEN FINISHED)" 

110 FDR 1=1 TO M 

120 G=0 

130 INPUT G 

140 IF G=0 THEN 170 

150 Gl=61+Q 

160 NEXT I 

170 PRINT "ENTER ENDING MILEAGE, DATE" 
180 INPUT M9,D9* 

190 REM «««««««»««««««««»*»« PROCESSING AREA *««*«**«««$««««««*« 
200 REM ««»»««««««»« ANALYSIS OF CURRENT PERFORMANCE *«««««*|c»«« 

210 M=M9-M0 
220 C=M/G1 
230 PRINT 
240 PRINT 

250 PRINT "«««««««*««*««««««**»«««**«««" 
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260 PRINT "FDR THE PERIOD ";D0*; "-";D9* 

270 PRINT " MILES DRIVEN: ";M 

280 PRINT " GASOLINE USED:"; 61 

290 PRINT " AVG MILES/GALLON-" ;C 

300 PRINT "ttttttEttttttttHttttttttttt**" 

310 PRINT 

320 PRINT 

330 PRINT "ENTER "jDO*; ";D9<; ">M; ", "jGl 

340 PRINT "AS THE LAST DATA STATEMENT" 8 "BEFORE THE END CARD" 
350 PRINT 

360 PRINT "WOULD YOU LIKE TO SEE PAST" i "DATA NOM <Y OR N)"| 

370 INPUT A* 

380 IF A*<>"Y" THEN 560 

390 REM «««««««««»» ANALYSIS OF PAST PERFORMANCE «««*««»«««»««t« 

400 PRINT 
410 PRINT 

420 PRINT "PERIODS" ) TAB < 10) ; "MILES"; TAB < 16) ; "GALLONS"! TAB (24) I "AVQ"j 
430 PRINT "REC0RDED"|TAB(24);"MPG"; 

440 PRINT " 

450 REM 

460 FOR 1=1 TO M 
470 READ D0i» 

480 IF DO*="END" THEN 540 
490 READ D9«,M,G1 

500 PRINT DO«j" TO"lD9»jTAB<9);MjTAB<17)|Ql|TAB<23)|INT<<M/Ql)*lOO)/100 
510 M5«MS+M 
520 G5°G5-t-Gl 
530 NEXT I 

540 PRINT " 

550 PRINT "TOTALS" j TAB (9) ; M5; TAB ( 17) ; G5; TAB (23) ; M5/G5 

560 REM ««««»««««E«««»«« PROGRAM TERMINATION POINT «««««»*«*«««««« 

570 PRINT 

580 PRINT 

590 STOP 

600 REM «*««»««««»«»«»* DATA ENTRIES FOLLOW »«t«t*««tt««*«t 

610 DATA JUN 1,JUL 1,1000,100 
620 DATA JUL 2, AUG 15,1500,200 
630 DATA AUG 19, SEP 1,2000,300 
640 DATA END 



> 





five M I Lesz-grlldni lo 



52 
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ENTER SEP I, SEP 15, 500 



50 



< Y DR 


TO SEE 
N>? Y 


PAST 


niLES 


GRLLONS 


m 


1000 


100 


10 


1500 


200 


7.5 


2000 


300 


6. 66 


4500 


600 


7.5 



^1^ 



2_TI 



TOTALS 



MAJOR SYMBOL TABLE - GASOLINE USE - EXTENDED 



NAME 


* • 


DESCRIPTION 


M 


* • 


MAXIMUM NUMBER OF DATA READS 


HO 


• • 


INITIAL MILEAGE 


D0$ 


• * 


DATE OF INITIAL MILEAGE 


G 


• • 


GASOLINE USED 


61 


• • 


T&TAL GASOLINE USED 


M9 


• • 


ENDING MILEAGE 


D9» 


• • 


DATE OF ENDING MILEAGE 


H 


• • 


MILES DRIVEN 


C 


• • 


AVERAGE MILES/GALLON 


MS 


• • 


OVERALL MILES DRIVEN 


G5 


• • 


OVERALL GASOLINE USED 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


' TAB 


• • 


FORMATS PRINT LINES 
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AUTOMOBILE COMPARISONS 



Description 

This program has been designed to assist the automobile shopping family 
in the evaluation of the costs of owning the various models being con- 
sidered. The selection can then be made with a better idea of what the 
total costs of the model really are. 

Functions of the Program 

The program compares the specified number of automobiles based upon 
several vital costs of automobile ownership. These costs are computed 
for the time period requested. The costs analyzed mclude: gasoline, 
maintenance, depreciation, insurance, and other costs. Each cost compu- 
tation is separated for ease in adding other cost categories. 

Instructions for Use 

Run the program and enter the cost data in response to the program's 
requests. 

Data Entry 

Data is entered through the keyboard, in response to the program's 
request. 

Output Description 

See example provided. Each automobile is processed and printed sepa- 
rately. Annual ownership costs are printed in detail, and totals are 
provided for the number of years specified. 



10 CALL CLEAR 

20 REM AUTOMOBILE CONPARISON PROGRAM 

30 REM «««««««««««««««*t:««« DATA INITIALIZATION ««»t«»««««««««t 

40 DIM C<10) 
50 DIM N«(iO) 
60 DIM 0(6) 
70 DIM D2(6) 
80 DIM M<10,6) 
90 DIM V<10,6) 
100 DIM P<10,6) 
110 DIM 0(10,6) 
120 DIM 01(6) 
130 DIM T(6) 
140 PRINT 

150 PRINT "HQW MANY AUTOMOBILES ARE WE"s "COMPARINB" 
160 INPUT N 

170 PRINT "ENTER THE NUMBER OF YEARS" i "FOR THE ANALYSIS" 
ISO INPUT Y 

190 PRINT "ENTER THE AVERAGE ANNUAL" 8 "MILES IT IS TO BE DRIVEN" 
200 INPUT D 

210 PRINT "ENTER THE EXPECTED COST/GALLON OF GAS" 

220 INPUT CO 
230 PRINT 
240 FOR 1=1 TO N 
250 PRINT 
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260 PRINT "ENTER FOR AUTO NUMBER";! 
270 PRINT "NAME:"s 
280 INPUT N$(I) 

290 PRINT "INITIAL COST (INCLUDE SALES": "TAX, ETC.)" 
300 INPUT C<I) 

310 PRINT "MILES PER GALLON ESTIMATE" 
320 INPUT G(I) 
330 FOR J=l TO Y 
340 PRINT 

350 PRINT "ENTER FOR YEAR"; J 
360 PRINT "MAINTENANCE COST" 
370 INPUT M<I,J) 

380 PRINT "APPROX VALUE AT YEAR END" 

390 INPUT V<I,J) 

400 PRINT "INSURANCE COST" 

410 INPUT P<I,J) 

420 PRINT "ENTER OTHER OPERATING COSTS" 
430 INPUT 0(1, J) 
440 NEXT J 
450 NEXT I 
460 PRINT 

470 PRINT "««««**««**««**«««»«l:*««*««««" 

480 PRINT TAB(5); "ANALYSIS RESULTS" 

490 PRINT "«»««»««««««««««*«««««««««»**" 

500 PRINT 

510 REM PRINT OF RESULTS «*»*«*««)««*«««««««« 

520 FOR 1=1 TO N 

530 PRINT "AUTO ";N«<I) ;TAB<15) ; "PRICE: ";C<I) s "MPGi ";G<I) 
540 PRINT 

550 PRINT "ANNUAL OPERATING COSTS" 

560 PRINT "ITEM"; 

570 FOR K=l TO Y 

580 PRINT TAB<K»10)|" YEAR"jK; 

590 NEXT K 

600 PRINT 

610 FOR K=l TO Y+1 

620 PRINT TAB<<K-1)*10);" "j 

630 NEXT K 
640 PRINT 

650 REM ««*«««**»*«*«t»«t««»«««****«t*«»««««««««««***»«***m«*« 

660 PRINT "GAS «"; 

670 FOR K»l TO Y 

680 G1(K)«D/G(I)»C0 

690 PRINT TAB<K»10);G1(K)) 

700 NEXT K 

710 PRINT 

720 REM ««««*««*««««««««»«««**«»»»«»*»««««««««*«****»«*«**«*»<« 

730 PRINT "MAINT *"; 

740 FOR K=l TO Y 

750 PRINT TAB(K«10);M(I,K); 

760 NEXT K 

770 PRINT 

780 REM 

790 PRINT "DEPREC «"; 
800 FOR K»l TO Y 
810 IF KOI THEN 840 
820 D2<K)=C(I)-V<I,K) 
830 GOTO 850 

840 D2<K)=V<I,K-1)-V<I,K) 
850 PRINT TAB(K»10);D2(K)) 
860 NEXT K 
870 PRINT 

880 REM t»**«**«««««*t«««**«4E»«**«*****«*«*«****««********«****t 

890 PRINT "INSUR *"| 

900 FOR K«»l TO Y 

910 PRINT TAB(K»10);P<I,K); 

920 NEXT K 

930 PRINT 

940 REM «*««*«««**«««»$**«»*«««««****«**«»*«*«*««$«*««**«*«»«««« 

950 PRINT "OTHER «"; 
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960 FOR K=l TO Y 

970 PRINT TAB(K*10) ;0(I,K){ 

980 NEXT K 

990 PRIWT 

1000 FOR K=l TO Y 

1010 PRINT TAB(K«10)j" "i 

1020 NEXT K 

1030 PRINT 

1040 PRINT "TOTAL"; 

1050 FOR K=l TO Y 

1060 T<K)=M<I,K)+D2<K)+P<I,K)+B1<K)+0<I,K) 
1070 X=X+T(K) 

1080 PRINT TAB<K»10);T<K); 
1090 NEXT K 
1100 PRINT 
1110 PRINT 

1120 PRINT "COST/MILE"! 

1130 FOR K«l TO Y 

1140 PRINT TAB<K«10)sT<K)/Dj 

1150 NEXT K 

1160 PRINT 

1170 PRINT 

1180 PRINT "OVERALL MILES DRIVENi "i Y«D| "COST/MILEi "jX/CYtD) 
1190 X=0 

1200 PRINT "««««»«*t««»«*««*«««««*|[«««««" 

1210 PRINT 
1220 NEXT I 

1230 REM «««««««*««««««««» PROGRAM TERMINATION POINT *««««««*<«*« 

1240 PRINT 
1250 PRINT 
1260 STOP 



>RUN 

HOW MANY AUTOMOBILES ARE WE 

COMPARINB 

? 1 

ENTER THE NUMBER OF YEARS 
FOR THE ANALYSIS 
? 2 

ENTER THE AVERAGE ANNUAL 
MILES IT IS TO BE DRIVEN 
7 10000 

ENTER THE EXPECTED 
COST/GALLON OF GAS 
7 .55 



ENTER FOR AUTO NUMBER 1- 

NAME:? BRAND X 

INITIAL COST (INCLUDE SALES 

TAX, ETC.) 

7 5000 

MILES PER GALLON ESTIMATE 
7 10 

ENTER FOR YEAR 1 
MAINTENANCE COST 
7 100 

APPROX VALUE AT YEAR END 
7 3000 
INSURANCE COST 
7 100 

ENTER OTHER OPERATING COSTS 
7 100 
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ENTER FOR YEAR 2 
MAINTENANCE COST 
? 200 

APPROX VALUE AT YEAR END 
? 2000 
INSURANCE COST 
? 100 

ENTER OTHER OPERATING COSTS 
7 100 



ANALYSIS RESULTS 

AUTO BRAND X PRICE: 3000 
MPS: 10 

ANNUAL OPERATING COSTS 



ITEM 


YEAR 1 


YEAR 2 


GAS t 


550 


550 


MAINT « 


100 


200 


DEPREC i 


2000 


1000 


INSUR « 


100 


100 


OTHER « 


100 


100 


TOTAL 


2S50 


1950 


COST/MILE 


.285 


.195 



OVERALL MILES DRIVENs 20000 
COST/MILE: .24 



MAJOR SYMBOL TABLE - CAR COMPARISONS 
I 



I 


NAME 


• • 


DESCRIPTION 


I 


C( > 


• * 


INITIAL COST ARRAY 


I 


G( > 


• • 


MILES/GALLON ARRAY 


I 


D2( > 


• • 


DEPRECIATION ARRAY 


I 


M( > 


• • 


MAINTENANCE COSTS 


I 


V( ) 


• • 


VALUES AT YEAR END ARRAY 


I 


N$( > 


• • 


NAMES OF AUTOS 


I 


P< ) 


• • 


INSURANCE COSTS 


I 


0( > 


• • 


OTHER COSTS 


I 


Gl( > 


• • 


GASOLINE COSTS YEARLY 


I 


T< ) 


• • 


TOTAL COSTS PER YEAR 


I 


N 


• • 


NUMBER OF AUTOS TO COMPARE 


I 


Y 


• • 


NUMBER OF YEARS FOR THE COMPARISON 


I 


D 


• • 


AVERAGE ANNUAL MILES DRIVEN 


I 


CO 


• • 


EXPECTED COST PER GALLON 


I 


T 


• • 


TOTAL COSTS 



FUNCTIONS USED 



NAME 


DESCRIPTION 




TAB 
DIM 


FORMATS PRINT LINES 
2 DIMENSION ARRAYS 





Automobile Related Programs 



TRIP PLANNING - BASIC VERSION 



Description 

This program offers assistance in planning your vacations and other 
automobile travel. Daily budgets and total trip costs are computed for 
your use. 

Functions of the Program 

The program accepts keyboard inputs concerning the trip and produces 
a table showing the projected itinerary and costs for each type of ex- 
pense incurred. Totals for each day are provided in addition to total 
trip costs. 

Instructions for Use 

Run the program and answer the questions asked by the program. 
Data Entry 

All data is entered in response to the program's requests. 
Output Description 

See example provided. A table of costs is produced that details the 
itinerary and produces totals for all costs. 



10 CALL CLEAR 

20 REM TRIP ANALYSIS-BASIC 

30 REM »««»««»««»»|[«««««« DATA INITIALIZATION «««»«««««»««««»«« 

40 DIM D»(15) 
50 DIM M(15) 
60 DIM F(15) 
70 DIM LdS) 
80 DIM T(15) 

90 PRINT "ENTER THE NAME FOR THE TRIP" 
100 INPUT m 

110 PRINT "ENTER THE MILES/GALLON YOU" i "EXPECT TO ACHIEVE" 
120 INPUT C 

130 PRINT "ENTER THE AVERAGE COST PER" i "GALLON YOU EXPECT TO PAY" 
140 INPUT G 

150 PRINT "ENTER THE NUMBER OF DAYS IT" i "WILL TAKE YOU" 

160 INPUT Dl 

170 FOR J=l TO Dl 

ISO PRINT "FOR DAY" I J 

190 PRINT "ENTER STOPPING POINT, MILES" 8 "TRAVELED" 
200 INPUT D*(J>,M(J) 

210 PRINT "ENTER YOUR COST FOR MEALS" I "AND LODGING. I.E., 75,25" 
220 INPUT F(J),L<J) 

230 REM *«»«»»«*»««««««««*«» PRINT OF RESULTS <»«»»»»*««*«*»««*«* 

240 NEXT J 
250 PRINT 
260 PRINT 

270 PRINT "**««»*t«*«»»»«»»»«»««»t««««" 
280 PRINT "*»»»RESULTS OF ANALYSIS* «*«" 
290 PRINT "»»»*««««»««««<«»«««»«*«*»««" 

300 PRINT 

310 PRINT "TRIP NAMEi "|N» 
320 PRINT 

330 PRINT TAB (16) | "F00D&"|TAB<29) j "DAY" | TAB (33) | "STOP" | TAB (39) | "GAS"; TAB (44) 
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I "LODGE"; TAB (31) 5 "TOTAL" 

340 PRINT "«»»»*««««»««««|:««««»«**»««t«" 

3S0 FOR J=l TO Dl 

360 X°N(J)/C«6 

361 X°INT(X«100)/100 
370 Y»F(J)+L(J> 

380 PRINT J;TAB(4)|D$(J>|TAB(10))XtTAB(16)iY| 

390 T(J)=X+Y 

420 X1=X1+X 

430 M1=M1+M<J) 

440 F1=F1+F<J) 

430 L1°L1+L<J) 

460 Yl-Ll+Fl 

470 PRINT TABC22)iT<J) 

480 T1«»T1+T(J) 

490 T<J)=0 

500 PRINT 

510 NEXT J 

520 PRINT ">«*««««»»«t«»««*«««»t»«»**«*" 

530 PRINT TAB(3)r'T0TAL"|TAB{10)|XliTAB<l6)|Yl|TAB<22)|Tl| 
540 PRINT 

550 REM »««««<$«««»««« PROGRAM TERMINATION POINT «««»t»»»«**«»«« 

560 END 



ENTER THE NAME FDR THE TRIP 

|N?iR^IBi Sfl-ESxGflLLON YOU 
EXPECT TO fiCHIEVE 

eSter^'^tdpping point, miles 

TRfiVELED _ 
? BOS . > 500 

iNTER„YOyR^COST^FDR,MERLS 

rnd lodging. I.e.. 75.25 

2 60.30 

TRR^E IJ^'*''^^^ POINT. MILES 



»♦»♦«»*♦«»»♦«»*♦♦♦»♦*»*♦*** 
♦♦♦♦RESULTS DF RNRLYSIS^^^^ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

TRIP NRMES PROVIDENCE 

DRY STOP GRS CSBSI TDTRL 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
1 BOS. 62.5 90 152.5 



2 PRDV. 9.37 



65 



74. 37 



♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
TDTRL 71.87 155 226.87 
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MAJOR SYMBOL TABLE - TRIP PLANNING - BASIC 



NAME 


* * 


DFSCRIPTinN 


VW\ 9 


* * 




Hi \ 


* * 


ADDAV nP MTI I7C TDAIICI CT» 


T \ 1 


• • 


ADDAV rip pnnn fnexe 
HKrCRT Ur rUUUi LUala 


i I S 


• • 


ADDAV fip 1 nnrsTkifs pnexo 
HnrcHT ur uUiiuXNu LUsls 


n/ % 
U\ / 


• * 


HKKRT Ur UlncK COSTS 


T/ \ 


• * 


HhKftY Ur TOTAL UAILY COSTS 




* * 


MAMP nP TPTD 


r 


• • 


PYPPPTPn MTI CC DCD rSAI 1 nki 


n 




AllPDAf2P f nex DETD fAI 1 HM 


Dl 




NUMBER OF DAYS FOR TRIP 


X 




GASOLINE COSTS 


XI 




TOTAL GASOLINE COSTS 


Ml 




TOTAL MILES 


Fl 




TOTAL FOOD COSTS 


LI 




TOTAL LODGING COSTS 


01 




TOTAL OTHER COSTS 


Tl 




TOTAL COSTS 


FUNCTIONS USED 


NAME 


* • 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINES ! 


DIM 


• • 


SINGLE DIMENSION ARRAYS ] 
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TRIP PLANNING - EXTENDED VERSION 



Description 

This program offers assistance in comparing various travel plans and 
routes. 

Functions of the Program 

The program accepts keyboard inputs of trip information and produces 
a table showing the itinerary and the projected costs for liiat trip/ 
route. Totals for each day are produced, along with overall totals for 
the trip. 

Instructions for Use 

Run the program and answer the questions asked of you. 
Data Entry 

All data is entered through the keyboard in response to the program's 
requests. 

Output Description 

See example provided. The results for each route are printed with daily 
and trip totals provided. 

Comments 

The maximum number of routes is currently set at five, and the 
maximum number of days for each is set at fifteen. These are easily 
changed by modifying lines 40-140. 



10 CALL CLEAR 

20 REM TRIP ANALYSIS PROBRAM - EXTENDED 

30 REM «*««««»»*«««««««««« DATA INITIALIZATION «««««*««««««*«*« 

40 DIM C<5) 
50 DIM G<5) 
60 DIM D(5) 
70 DIM Dl(5) 
80 DIM D$(5,15> 
90 DIM M(5,15) 
100 DIM F<5,15> 
110 DIM L(5,15) 
120 DIM 0(5,15) 
130 DIM N$(5) 
140 DIM T<i5> 

150 PRINT "ENTER THE NUMBER OF ROUTES" 8 "THAT YOU ARE CONSIDERINS" 

160 INPUT R 

170 FOR 1=1 TO R 

180 PRINT "FOR ROUTE #";I 

190 PRINT "ENTER THE NAME OF THIS ROUTE" 
200 INPUT N«(I) 

210 PRINT "ENTER THE MILES/GALLON YOU"! "EXPECT TO ACHIEVE ON ROUTE"|I 
220 INPUT C(I) 

230 PRINT "ENTER THE AVERAGE COST PER": "GALLON YOU EXPECT TO PAY" 
240 INPUT 6<I) 

250 PRINT "ENTER THE NUMBER OF DAYS IT": "WILL TAKE YOU" 
260 INPUT Dl(I) 
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270 FOR J=l TO DKI) 
2B0 PRINT "FOR DAY"; J 

290 PRINT "ENTER YOUR STOPPING": "DESTINATION" 
300 INPUT D«<I,J) 

310 PRINT "ENTER YOUR MILES TRAVELED" 
320 INPUT M<I,J) 

330 PRINT "ENTER YOUR COST FOR MEALS" 
340 INPUT F<I,J) 

350 PRINT "ENTER YOUR COST OF LOOSING" 
360 INPUT L<I,J) 

370 PRINT "ENTER ANY OTHER COSTS" 
380 INPUT 0(1, J) 
390 NEXT J 
400 NEXT I 

410 REM t***t**$t**tt***** PRINT OF RESULTS 
420 PRINT 
430 PRINT 

440 PRINT "»*««««««««««««««*«»*««««*««" 

450 PRINT " RESULTS OF ANALYSIS " 
460 PRINT ''*t1l.t******t****$*.***it*****t" 
470 PRINT 
480 FOR 1=1 TO R 

490 PRINT "RESULTS OF ROUTE "jI;N«<I> 
500 PRINT PRESS ANY KEY TO CONT. " 
510 INPUT HOLD« 
520 D(I)«D1(I) 
530 L1=0 

540 IF D1(I)<=6 THEN 580 

550 L1=L1+1 

560 Dl(I)sDl(I)-6 

570 GOTO 540 

580 FOR Z=0 TO LI 

590 IF LloO THEN 630 

600 D(I)»6 

610 IF LIOZ THEN 630 
620 D(I)°D1(I) 
630 FOR K1>1 TO D(I) 
640 K»Kl-i-Z«6 

650 PRINT TAB<K1»10+1)5"DAY";K> 
660 NEXT Kl 
670 PRINT 

680 FOR Kl=l TO D(I) 

690 PRINT TAB<K1«10)5" 

700 NEXT Kl 
710 PRINT 

720 PRINT "STOP AT";j 
730 FOR Jl=l TO Dd) 
740 J=Jl+Zik6 

750 PRINT TAB(J1»10);D«<I,J)5 
760 NEXT Jl 
770 PRINT 

780 PRINT "MILEAGE"; 
790 FOR Jl=l TO D<I) 
BOO J=J1+Z*6 

810 PRINT TAB<J1*10);M<1,J); 
820 NEXT Jl 
830 PRINT 

840 FOR Jl=»l TO D<I) 

850 PRINT TAB<J1*10);" "5 

860 NEXT Jl 

870 PRINT 

880 PRINT "GAS «"; 

890 FOR Jl"l TO D<I) 

900 J"J1+Z*6 

910 X°M(I, J)/C(I)«6<I) 

920 PRINT TAB<J1«10);X; 

930 T<J)=T<J)+X 

940 NEXT Jl 

950 PRINT 

960 PRINT "MEALS t"; 
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970 FOR Jl=l TO D<I) 
980 J=J1+Z*6 

990 PRINT TAB(J1*10) ;F(I, J) ; 

1000 T(J)=T(J)+F(I, J) 

1010 NEXT Jl 

1020 PRINT 

1030 PRINT "LODGING 

1040 FOR Jl=l TO D<I) 

1050 J=J1+Z«6 

1060 PRINT TAB(J1*10) ;L<I,J>; 
1070 T(J)=T(J)+L<I, J) 
1080 NEXT Jl 
1090 PRINT 

1100 PRINT "OTHER ♦"» 
1110 FOR Jl=l TO D<I> 
1120 J<=J1+Z«6 

1130 PRINT TAB<J1«10>;0<I,J)| 
1140 T(J)=T(J)+0<I,J) 
1150 NEXT Jl 
1160 PRINT 

1170 FOR Jl=l TO D<I) 

1180 PRINT TAB(Jl»10)r' "| 

1190 NEXT Jl 
1200 PRINT 

1210 PRINT "TOTAL «"» 
1220 FOR Jl«l TO D(I) 
1230 J=J1+Z«6 

1240 PRINT TAB(J1«10);T(J); 

1250 TO=TO+T<J) 

1260 T<J)«=0 

1270 NEXT Jl 

1280 PRINT 

1290 PRINT 

1300 NEXT Z 

1310 PRINT 

1320 PRINT "TOTAL COST FOR THIS ROUTE" s "ISi TO 
1330 T0=0 

1340 PRINT "«««*«««««»«««»««««»«*««(»«««" 

1350 PRINT 
1360 NEXT I 

1370 REM »««*»»«*»»«»»**«» PROGRAM TERMINATION POINT »«»«*«««*»»« 

1380 PRINT 
1390 PRINT 
1400 STOP 



>RUN 

ENTER THE NUMBER OF ROUTES 
THAT YOU ARE CONSIDERING 
? 2 

FOR ROUTE 1 

ENTER THE NAME OF THIS ROUTE 
7 NORTHERN 

ENTER THE MILES/GALLON YOU 
EXPECT TO ACHIEVE ON ROUTE 1 
? 10 

ENTER THE AVERAGE COST PER 
GALLON YOU EXPECT TO PAY 
? 1.25 

ENTER THE NUMBER OF DAYS IT 
WILL TAKE YOU 
? 1 

FOR DAY 1 

ENTER YOUR STOPPING 

DESTINATION 

? CITY Y 

ENTER YOUR MILES TRAVELED 
7 500 

ENTER YOUR COST FOR MEALS 
7 50 
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ENTER YOUR COST OF LODBINQ 
? 

ENTER ANY OTHER COSTS 
? 10 

FOR ROUTE # 2 

ENTER THE NAME OF THIS ROUTE 
? SOUTHERN 

ENTER THE MILES/GALLON YOU 
EXPECT TO ACHIEVE ON ROUTE 2 
7 11 

ENTER THE AVERAGE COST PER 
GALLON YOU EXPECT TO PAY 
? 1.11 

ENTER THE NUMBER OF DAYS IT 
WILL TAKE YOU 
7 1 

FOR DAY 1 

ENTER YOUR STOPPING 

DESTINATION 

7 CITY Y 

ENTER YOUR MILES TRAVELED 
7 600 

ENTER YOUR COST FOR MEALS 
7 50 

ENTER YOUR COST OF LODGING 

7 

ENTER ANY OTHER COSTS 
7 25 



RESULTS OF ANALYSIS 

RESULTS OF ROUTE 1 NORTHERN 
PRESS ANY KEY TO CONT. 
DAY 1 



STOP AT CITY Y 
MILEAGE 500 



GAS « 62.5 
MEALS « 50 
LODGING « O 
OTHER $ 10 



TOTAL * 122.5 



TOTAL COST FOR THIS ROUTE 
IS: 122.5 

RESULTS OF ROUTE 2 SOUTHERN 
PRESS ANY KEY TO CONT. 
DAY 1 



STOP AT CITY Y 
MILEAGE 600 



GAS « 60.54545455 
MEALS $ 50 
LODGING « 
OTHER « 25 



TOTAL * 135.5454545 



TOTAL COST FOR THIS ROUTE 
IS: 135.5454545 
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MAJOR SYMBOL TABLE - TRIP PLANNING - EXTENDED 
I 1 



T 
X 




* * 


DESCRIPTION 


I 


C< ) 




MILES PER GALLON ARRAY 


I 


G( ) 




AVERAGE COST PER GALLON ARRAY 


I 


D( > 




DAY ARRAY 




Dl < ) 




NUMBER OF DAYS PER ROUTE ARRAY 


I 


D$( > 




DAILY STOPPING POINT ARRAY 


I 


M( > 




MILES TRAVELED ARRAY 


T 


F( ) 




FOOD COST ARRAY 

i wwv WWW 1 rii\fl\ri v 


I 


L< ) 




LODGING COST ARRAY 


I 


0( > 


• • 


OTHER COST ARRAY 


I 


N»< ) 


« « 


ROUTE NAME ARRAY 


I 


Y*< ) 


• • 


TOTAL DAILY COST ARRAY 


I 


R 


• * 


NUMBER OF ROUTES 


I 


J 


• • 


HORIZONTAL PRINT CONTROL 


I 


Jl 


• • 


HORIZONTAL PRINT CONTROL 


I 


X 


• • 


GASOLINE COSTS 


I 


TO 


• • 


TOTAL COSTS 



I 

FUNCTIONS USED 

I 

I NAME «* DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 
I DIM 2 DIMENSION ARRAYS 
I 
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Recipe Conversion 
Meal Planning 
Diet Planning— Version 1 
Diet Planning— Version 2 
Categorizing Recipes— Version 1 
Categorizing Recipes— Version 2 
Freezer Inventory— Basic Version 
Freezer Inventory— Extended Version 
Supermarket List 
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RECIPE CONVERSION 



Description 

This program converts given quantities of recipe ingredients based upon 
the number of servings in the basic recipe to the quantities needed for 
the number of servings desired. 

Functions of the Program 

The program accepts recipe name, the number of servings in the basic 
recipe, the number of servings desired, and the individual ingredients of 
the recipe. The quantities are converted for the desired number of 
servings, and the modified recipe is printed. 

Instructions for Use 

Run the program and answer the questions asked. 
Data Entry 

All data is entered through the keyboard in response to program 
prompting. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM RECIPE CONVERSION PROGRAM 

30 REM »*«««»««««««»«««««« DATA INITIATION «»*»«««»»«««*«»««»«« 

40 M0»»25 
50 DIM N<25) 
60 DIM T*<25) 
70 DIM D»(25) 

80 REM START OF RECIPE ENTRY »««««««««»t*«« 

90 PRINT "ENTER RECIPE NAME " 
100 INPUT R« 

110 PRINT "ENTER NUMBER OF SERVINGS IN": "RECIPE ENTERED"! 
120 INPUT □ 

130 PRINT "ENTER NUMBER OF SERVINGS": "WANTED" | 
140 INPUT W 

150 PRINT "ENTER NUMBER, QTY, AND ITEM": "EXAMPLE 2,TSP,WATER (ENTER" I "0,0,0 

WHEN DONE) " 

160 FOR 1=1 TO MO 

170 N(I)=0 

180 INPUT N<I),T*<I),D»(I) 
190 IF N(I>aO THEN 210 
200 NEXT I 
210 M0=I-1 

220 REM ««***«»»«»»««««»«»« SERVING CONVERSION AREA »«««»*»«»««« 

230 C=W/Q 
240 FOR 1=1 TO MO 
250 N(I)°N(I)«C 
260 NEXT I 

270 REM ««*«*«««««»»t*«««*»»*«PRINT AREA »«««»»«««««««««*«»«»««« 

280 PRINT 
290 PRINT 

300 PRINT "RECIPE- "|R*|" FOR"jW 
310 PRINT 
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320 FOR 1=1 TO MO 

330 PRINT N<I);TAB<10);T*<I)jTAB(20);D»<I) 
340 NEXT I 

350 REM *««««»«*««*««»« PROGRAM TERMINATION POINT «««««*««»»«»»« 

360 PRINT 
370 PRINT 
380 STOP 



"4^ 

NTE 
EC I 
NTE 
RNT 
NTE 
XRM 

r r 

2* 
2 , 
. S 



R NUMl _ 
R NUMBERj. QTY, RND ITEM 



OF SERVINGS IN 



lERVINGS 



, CUPS , M I L 
DRSH , SRLT 



RECIPE- CHEFS SPECIRL FDR 4 



TBS 
CUPS 
CUPS 
DRSH 



UflTER 
SALT 



MAJOR SYMBOL TABLE ~ RECIPE CONVERSION 



NAME 


• « 


DESCRIPTION 


MO 


• • 


MAXIMUM ITEMS ALLOWED 


N( > 


• • 


NUMBER OF UNITS ARRAY 


Jti ) 


• • 


UNITS ARRAY < I.E. TSP> 


D«( > 


• * 


ITEM ARRAY (I*E« FLOUR) 


R% 


• * 


RECIPE NAME 


Q 


• • 


SERVINGS IN RECIPE 


U 


* « 


SERVINGS DESIRED 


C 


• * 


CONVERSION FACTOR 


FUNCTIONS USED 


NAME 


* • 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINE 


DIM 




SINGLE DIMENSION ARRAY 
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MEAL PLANNING 



Description 

This program produces a menu and checklist for determining additional 
grocery items required. Grocery items are categorized for ease in 
shopping. 

Functions of the Program 

The program initializes all data items for the food categories first. 
Following this initialization, the first day's results are analyzed and 
printed, followed by each succeeding day, for all of the days included 
as data items. The last item printed is a list for shopping use. Multiple 
passes through the data entries are made to insure correct categoriza- 
tion of items. 

Instructions for Use 

Prior to running the program, the data items for each meal must be 
entered using DATA statements. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

There are three types of data entries: 

1. A master record is required for each day entered: 

*, Day name 

2. A meal record is required for each meal that gives the meal number 
of the day. The format is: 

N, Meal number of the day 

3. Menu item entries are entered for each item. The format is: 

Food category code. Item description 

Output Description 

See example provided. Output is in two sections: 

1. A menu for each day included m the data items. 

2. A grocery list of the items required for the menu. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Suggested Enhancements 

You may wish to have the data entered via the keyboard rather than 
through DATA statements. To accomplish this, an array will be re- 
quired to hold the data. 
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10 CALL CLEAR 

20 REM MEAL PLANNING PROBRAM 

30 REM ************* OPEN STATEMENT FOR PRINTER *************** 
40 REM *«« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT *** 
50 OPEN #1: "RS232.BA=9600.DA=8" 

60 REM **************** DATA INITIALIZATION *«»**«]|[«»*»*]|c***««* 

70 DIM DO* (31) 

80 M0=7 

90 DIM N*<3> 

100 N*(1)="BREAKFAST" 

110 N*<2)="LUNCH" 

120 N$(3)="DINNER" 

130 DIM D*(7) 

140 DIM F*(7) 

150 M=1000 

160 F*(1)="M" 

170 D«<1)="MEATS" 

180 F*(2)="FV" 

190 D«<2)="FRESH VEGETABLES" 
200 F*(3)="CV" 

210 D«<3)="CANNED VEGETABLES" 

220 F*<4)="FF" 

230 D*.<4)="FRESH FRUIT" 

240 F*<5)=»"CF" 

250 D*<5)="CANNED FRUIT" 

260 F$<6)="D" 

270 D*<6)="DAIRY" 

280 F*(7>="0" 

290 D«(7)="0THER" 

300 REM ******************************************************** 
310 REM ***************** PROCESSING AREA ********************** 

320 FOR K=l TO M 
330 N0=0 
340 READ T* 

350 IF T*="END" THEN 530 
360 IF T«="«" THEN 520 
370 IF T$°"N" THEN 420 
380 READ M$ 

390 D0*((N1-1)«10+C)=M» 
400 M«=" " 
410 GOTO 490 
420 READ Nl 

430 IF NKoNO THEN 450 
440 N0=N1 

450 IF C0<=C1 THEN 490 

460 C1=C0 

470 COaO 

480 C=0 

490 C=C+1 

500 C0=C0+1 

510 GOTO 810 

520 READ M$ 

530 IF K=l THEN 790 

540 C=N1 

550 REM ***************** MENU PRINTING ************************ 

560 PRINT #1 
570 PRINT *1 
580 PRINT #lsTAB(30>jX« 

590 PRINT #1:TAB<5) jN$<l);TAB<29)}N$<2);TAB<47);N«<3) 
600 FOR Kl=l TO C 

610 PRINT #lsTAB<<Kl-l)»20)»"I "j 

620 NEXT Kl 
630 PRINT #la"I" 
640 FOR L=l TO CI 
650 K3=l 

660 FOR Kl=l TO C 

670 K3=(K1-1)»10+L 

680 PRINT #lsTAB<<Kl-l)»20+2); 

690 IF D0*<K3)=" " THEN 730 

700 PRINT #1jD0*<K3); 
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710 D0t<K3>=" " 
720 GOTO 730 
730 NEXT Kl 
740 PRINT «1 
750 NEXT L 
760 C1=0 
770 C=0 
7B0 00=0 

790 IF T«="END" THEN 820 
BOO X«=M« 
810 NEXT K 

820 REM **«*««««««««»«««« GROCERY LIST PRINTING «*«»«««*«»«t«««t 

830 PRINT #1 
840 PRINT #1 
830 PRINT #1 
860 PRINT #1 

870 PRINT #1: "GROCERY ITEMS REQUIRED" 

880 PRINT #1 

890 PRINT #1 

900 FOR K=l TO MO 

910 RESTORE 

920 PRINT #1:D$(K) 

930 PRINT #lx" " 

940 FOR 1=1 TO M 
950 READ T$ 

960 IF T*="END" THEN 1010 
970 READ M« 

980 IF T*<>F«(K)THEN 1000 
990 PRINT #1:"< )"jTAB<5)iM* 
1000 NEXT I 
1010 PRINT #1 
1020 NEXT K 

1030 REM ttt***t**ttttttttttt*t*t*****t*tttt*ttt***tt******tt*ttt 
1040 REM *««««**»»»*»♦♦«« PROGRAM TERMINATION POINT 
1050 PRINT #1 
1060 PRINT #1 
1070 STOP 

1080 REM «***««**«jki|t**«««tt*«*«*«««««**«*««*«««*««*«««««««««*«««« 

1090 REM ****t***t**t**** DATA ENTRIES FOLLOW 

1100 DATA *,MON 

1110 DATA N, 1 

1120 DATA M, BACON 

1130 DATA FF, BANANAS 

1140 DATA 0, TOAST 

1150 DATA 0,EG6S 

1160 DATA N,3 

1170 DATA M, SIRLOIN STEAK 

1180 DATA V, GREEN BEANS 

1190 DATA FV, FRENCH FRIES 

1200 DATA 0, CHERRY PIE 

1210 DATA «,TUES 

1220 DATA N,l 

1230 DATA M, SAUSAGE 

1240 DATA 0, PANCAKES 

1250 DATA FF,PEAS 

1260 DATA N,3 

1270 DATA M,MEATLOAF 

1280 DATA FV, TOMATOES 

1290 DATA FV, BAKED POTATOES 

1300 DATA FF, PEACHES 

1310 DATA END 

1320 CLOSE #1 



I 



BREAKFAST 



MON 

LUNCH DINNER 



I 



BACON 
BANANAS 



SIRLOIN STEAK 
GREEN BEANS 
FRENCH FRIES 
CHERRY PIE 



TOAST 
EGGS 
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DINNER 

MEATLOAF 
TOMATOES 
BAKED POTATOES 
PEACHES 



GROCERY ITEMS REQUIRED 
MEATS 



( ) BACON 

< ) SIRLOIN STEAK 
( ) SAUSAGE 

< ) MEATLOAF 

FRESH VE8ETABLES 



< ) FRENCH FRIES 

< ) TOMATOES 

< > BAKED POTATOES 

CANNED VEGETABLES 



FRESH FRUIT 



< ) BANANAS 
( ) PEAS 
( ) PEACHES 

CANNED FRUIT 



DAIRY 



OTHER 



< J TOAST 
( ) EGGS 

< ) CHERRY PIE 
( ) PANCAKES 



TUES 

BREAKFAST LUNCH 

SAUSAGE 

PANCAKES 

PEAS 



MAJOR SYMBOL TABLE - MEAL PLANNING 

I 

I NAME DESCRIPTION 

I 

I DO* ARRAY OF INPUT ITEMS 

I N$( ) MEAL NAME ARRAY 

I Dt< > MASTER FOOD CATEGORY ARRAY 

I Ff< ) MASTER CATEGORY CODE ARRAY 

I M MAXIMUM NUMBER OF DATA READS 

I T« TRANSACTION CODE 

I Mf TRANSACTION ITEM/DAY 

X C COUNTER 

I Nl MEAL NUMBER IN DAY 

I 

FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM SINGLE DIMENSION ARRAY 

I 
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DIET PLANNING - VERSION 1 

Description 

This program produces a menu, complete with calorie values, calories 
per meal, and total calories per day. After printing the menu, it pro- 
duces a list of all food items scheduled for each of several major food 
groups. 

Functions of the Program 

The program initializes the food group categories first. Following this, 
menus are printed, calorie counts produced, and daily totals are printed. 
The last task of the program is the printing of the food group lists. It 
does so by rereading the data items for each major food group. 

Instructions for Use 

Prior to running the program, the menu items must be entered using 
DATA statements. 

Data Entry 

All data is entered usmg DATA statements. 
Data Formats 

There are three types of data entries: 

1. A master card is required for each day. Its format is: 

*, Day name 

2. A meal number entry is required for each meal of the day: 

N, Meal number of the day 

3. Menu items are entered for each item. The format is: 

Food category code, Item description. Calories 

Output Description 

See example provided. Output is in two sections: 

1. A menu for each day entered in the DATA statements is pro- 
duced. 

2. A list of foods, scheduled by major food groups, is printed. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Suggested Enhancements 

You may wish to have the data entered through the keyboard rather 
than through DATA statements. To accomplish this, an array will be 
required to hold the items entered. 
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10 CALL CLEAR 

20 REM DIET PLANNING PROGRAM - BASIC 

30 REM t***tttt*t**t**t* OPEN STATEMENT FOR PRINTER »*»«*»««««» 
40 REM *«* CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT »«« 
50 OPEN #1: "RS232.BA=9600.DA=8" 

60 REM DATA INITIALIZATION *««««»««(««*«««« 

70 DIM DO* (31) 

80 DIM A0<31) 

90 M0=9 

100 DIM N«(3) 

110 N*(1)="BREAKFAST" 

120 N$<2)="LUNCH" 

130 N*<3)="DINNER" 

140 DIM D*(9) 

150 DIM F*(9) 

160 M=1000 

170 F$<1)="M" 

180 D«(1)="MEATS" 

190 F*(2)="FV" 

200 D*<2)="FRUITS/VEGETABLES" 

210 F*(3)="BC" 

220 D*<3)="BREADS/CEREALS" 

230 F*<4)="B" 

240 D«(4)="BEVERAGES" 

250 F«(5)="S" 

260 D«<5)="S0UPS" 

270 F*(6>="SD" 

280 D* ( 6 ) = " SWEETS/DESSERTS " 

290 F4(7)="F" 

300 D$<7)="FATS" 

310 F*(8)="D" 

320 D*<a)="DAIRY" 

330 F*(9)="a" 

340 D«<9)="0THER" 

350 FOR 1=1 TO 31 

360 DO$<I)=" " 

370 NEXT I 

380 REM *«****««**«««««*«««««**«**ikt*««******««««*«««t**«*«***«« 
390 REM PROCESSING AREA ««««««««««»«<(«««««*«« 

400 FOR K=l TO M 
410 N0=0 
420 READ T* 

430 IF T*="END" THEN 640 
440 IF T«="*" THEN 630 
450 IF T$="N" THEN 510 
460 READ M*,A 
470 D0*< <N1-1)«10+C>=M$ 
480 A0< <N1-1)#10+C)=A 
490 M*=" " 
500 GOTO 580 
510 READ Nl 

520 IF N1<=N0 THEN 540 
530 N0=N1 

540 IF C0<=C1 THEN 580 

550 C1=C0 

560 C0=0 

570 C=0 

580 C=C+1 

590 C0=C0+1 

600 D0$< (N1-1)*10+C)=M« 

610 A0( (N1-1)»10+C)'=A 

620 GOTO 1060 

630 READ M* 

640 IF K=l THEN 1040 

650 C=N1 

660 REM «*«««««««««»»»««»« MENU PRINTING ttt*tt***i*$$t*t***tt*** 

670 PRINT #1 
680 PRINT #1 
690 PRINT #1:TAB(30> ;X$ 

700 PRINT #l:TAB<5);N«<l);TAB(29);N«(2);TAB<47)iN$(3> 
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710 FOR Kl=l TO C 

720 PRINT «liTAB<<Kl-l)»20)j "I 

730 NEXT Kl 
740 PRINT 
750 FOR L=l TO CI 
760 K3=l 

770 FOR Kl=l TO C 

780 K3=<K1-1)«10+L 

790 PRINT ttl:TAB< <K1-1)*20+2)| 

800 IF D04KK3)=" " THEN 860 

810 PRINT «1:D0»(K3);A0<K3)| 

820 T0<K1)=T0<K1)+A0<K3) 

830 D0«(K3)=" " 

840 A0(K3)=0 

850 GOTO 860 

860 NEXT Kl 

870 PRINT #1 

880 NEXT L 

890 PRINT #1 

900 FOR Kl=l TO C 

910 PRINT #1 : TAB < 19* (Kl-1 ) +4) ; "CALORIES" ; TAB < 19* <K1-1 ) -^12) | TO <K1 ) } 

920 T1=T1+T0(K1) 

930 T0<K1)»0 

940 NEXT Kl 

950 PRINT #1 

960 PRINT ttl 

970 PRINT 4»1: "*«*«««««««««««*«««««" 

980 PRINT #1: "DAILY TOTAL IS "jTl 
990 PRINT ftli"«»««««««»«»««t«*««««" 

1000 C1=0 
1010 T1=0 
1020 C=0 
1030 C0=0 

1040 IF T4«"END" THEN 1070 
1050 X$=M$ 
1060 NEXT K 

1070 REM *«*«««««««««««««« ANALYSIS BY FOOD TYPE *««*««t««lE«»«*«* 

1080 PRINT #1 
1090 PRINT ttl 
1100 PRINT #1 
1110 PRINT 4»1 

1120 PRINT #1 I "FOODS PLANNED BY GROUP" 

1130 PRINT #1 

1140 PRINT #1 

1150 FOR K«l TO MO 

1160 RESTORE 

1170 PRINT ttl:D*<K) 

1180 PRINT #1:" " 

1190 FOR 1=1 TO M 
1200 READ T« 

1210 IF T«="N" THEN 1280 

1220 IF T«="«" THEN 1280 

1230 IF T*="END" THEN 1300 

1240 READ M$,A 

1250 IF T«<>F$(K>THEN 1290 

1260 PRINT #1:"< ) ";TAB<5) ;M«; A 

1270 GOTO 1290 

1280 READ M« 

1290 NEXT I 

1300 PRINT ttl 

1310 NEXT K 

1320 REM «»«**««]K««««««**««***««««*««««***i|C!|[««««««««t«««t«**««««t 
1330 REM ttt*t***t**t****t PROGRAM TERMINATION POINT ««»*««»««««« 
1340 PRINT #1 
1350 PRINT #1 
1360 STOP 

1370 REM ««*««**«««*«»«»««*«««*««*»«t»««««««««««««»»«t«»**t«***«« 
1380 REM ««»«»««««*«»««««« DATA ENTRIES FOLLOW t*«*«»«««*««««»*»« 

1390 DATA *,MON 
1400 DATA N, 1 
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1410 DATA M, BACON, AO 

1420 DATA B, ORANGE JUICE, 60 

1430 DATA FV, BANANAS, 85 

1440 DATA BC, TOAST, 70 

1450 DATA F, MARGARINE, 25 

1460 DATA M,SOFT BOILED EG6,80 

1470 DATA N,3 

14B0 DATA M, SIRLOIN STEAK, 330 
1490 DATA D, GLASS MILK, 160 
1500 DATA FV, GREEN BEANS, 15 
1510 DATA FV, FRENCH FRIES, 213 
1520 DATA SD, CHERRY PIE, 310 
1530 DATA *,TUES 
1540 DATA N,l 
1550 DATA M, SAUSAGE, 250 
1560 DATA BC, PANCAKES, 60 
1570 DATA SD, SYRUP, 55 
1580 DATA FV, PEAR, 100 
1590 DATA N,3 

1600 DATA M, BROILED SALMON, 155 
1610 DATA FV, TOMATOES, 20 
1620 DATA FV, BAKED POTATO, 145 
1630 DATA FV,1 PEACH, 30 
1640 DATA F, MARGARINE, 25 
1650 DATA END 



>RUN 

MON 

BREAKFAST LUNCH DINNER 

BACON 60 SIRLOIN STEAK 330 

ORANGE JUICE 60 GLASS MILK 160 

BANANAS 85 GREEN BEANS 15 

TOAST 70 FRENCH FRIES 213 

MARGARINE 25 CHERRY PIE 310 
SOFT BOILED EGG 80 



CALORIES 380 CALORIES CALORIES 1030 

DAILY TOTAL IS 1410 



TUES 
LUNCH 



BREAKFAST 

SAUSAGE 250 
PANCAKES 60 
SYRUP 55 
PEAR 100 



CALORIES 463 CALORIES O 

««««»««««*««*««««««« 

DAILY TOTAL IS 840 

FOODS PLANNED BY GROUP 
MEATS 

( ) BACON 60 

< ) SOFT BOILED EGG 80 

( ) SIRLOIN STEAK 330 



DINNER 
I X 

BROILED SALMON 153 
TOMATOES 20 
BAKED POTATO 143 
1 PEACH 30 
MARGARINE 23 

CALORIES 375 
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( ) SAUSAGE 250 

( ) BROILED SALMON 135 

FRUITS/VEQETABLES 



( ) BANANAS 85 

( ) GREEN BEANS 15 

< ) FRENCH FRIES 215 
( > PEAR 100 

< ) TOMATOES 20 

( ) BAKED POTATO 145 

( ) 1 PEACH 30 

BREADS/CEREALS 



( ) TOAST 70 
( ) PANCAKES 60 

BEVERAGES 



( ) ORANGE JUICE 60 
SOUPS 



SWEETS/DESSERTS 



( > CHERRY PIE 310 
( ) SYRUP 55 

FATS 



< ) MARGARINE 25 

< ) MARGARINE 25 

DAIRY 



( ) GLASS MILK 160 
OTHER 



MAJOR SYMBOL TABLE - DIET PLANNING - VERSION 1 



NAME 


• • 


DESCRIPTION 




DOX 




INPUT ITEM ARRAY 




A0«( 




ARRAY OF INPUT CALORIES 




N$( > 


• • 


ARRAY OF MEAL NAMES 




D$< > 


« • 


ARRAY OF MASTER CATEGORY 


CODES 


F$< ) 


• • 


ARRAY OF MASTER CATEGORY 


DESCRIPTIONS ] 


T$ 


• « 


TRANSACTION CODE 




M« 


• • 


TRANSACTION ITEM 




A 


• • 


TRANSACTION CALORIES 




Nl 


• • 


MEAL NUMBER 




L C 


• * 


COUNTER 




: CI 


• • 


COUNTER 




: Tl 


• • 


TOTAL DAILY CALORIES 




FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 




[ TAB 


• • 


FORMATS PRINT LINES 




[ DIM 


• • 


SINGLE DIMENSION ARRAYS 
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DIET PLANNING - VERSION 2 



Description 

This program for diet planning deals with fixed diet requirements and 
produces a menu selection list based upon.the diet*s requirements. 

Functions of the Program 

This program differs substantially from the other version of diet plan- 
ning provided in this book. The program reads the data items; determines 
whether the item is a member of a group or subgroup of foods and 
whether it is optional or required; and then prints the item accordingly. 
The processing of the various groups/subgroups is accomplished in sep- 
arate routines for ease of understanding or for modification, if desired. 

Instructions for Use 

Provide the data items for the diet prior to running the program for the 
first time. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

Several types of data formats are available for your use, as follows: 

1. A master item is required for each meal. Its format is: 

*,Meal name 

2. Group choices are provided by an entry of the following form: 

G, Number of choices (choices must follow immediately) 

3. Subgroup items are indicated by the following: 

S, Number of optional choices (choices must follow immediately) 

4. Required items are indicated by the following: 

R, Required item name 

5. Choices for the optional entries are provided m Englishlike form, 
without any transaction code. 

Note the END data item. 

Output Description 

See example provided. A separate column for each day is printed for 
use in menu selection. 

Suggested Enhancements 

You may wish to extend the program to accept the individual's menu 
choices and compare them against the selection criteria. Following a 
check for accuracy, the menu may be printed. 

78 Tl BASIC Computer Programs for the Home 



10 CALL CLEAR 

20 REn DIET PLANNINQ PROBRAM 2 

30 REM t<«<t«t<« DATA XNXTXALXZATION «»»»*»»««**« 

40 M"1000 
SO C°l 
60 SIbO 

70 PRINT "HOW MANY DAYS SHALL X PRINT?" 
60 INPUT N 
90 PRINT 
100 PRINT 

110 REM *t*«««»tt««PR0CE88irS AREA ««<««»«t»«« 

120 FOR I-l TO M 
130 READ T« 

140 IF TM-END" THEN 730 
ISO IF T»a"»" THEN 300 
160 IF T»»"B" THEN 470 
170 IF T«""S" THEN S30 
180 IF Tt»"R" THEN 610 
190 IF 81 >0 THEN 230 
200 PRINT TAB(2)|C|"-"|Tf| 
210 CoC*l 
220 GOTO 2S0 

230 PRINT TAB(2>|S1|"-"|T»| 

240 Sl-Sl-i-l 

2S0 FOR K«l TO N 

260 PRINT TAB<K»3+46)|"< )"| 

270 NEXT K 

280 PRINT 

290 GOTO 710 

300 REN t«««*»PR0CE88 NEN MEAL t»«t««*««»** 

310 PRINT 

320 PRINT "»«»»««»*«»«««««»»««»«««««»>" 

330 FOR K"l TO N 
340 REM 
3S0 NEXT K 
360 PRINT 
370 READ M« 

380 PRINT TAB<5)|M*|TAB<20)|"DAY" 

390 PRINT "««*«»»*<««<««««<t<*«*t<*t«t«" 

400 FOR K»l TO N 

410 PRINT TAB(K«34-4S)|K| 

420 NEXT K 

430 PRINT 

440 81a0 

450 C-1 

460 GOTO 710 

470 REM «»««««««PR0CE8S NEM GROUP »««««$>«»* 
480 PRINT 
490 READ 60 

500 PRINT "CHOOSE" I e0| "OF THE FOLLOWINQi" 
510 81-0 
520 GOTO 710 

530 REM t«t«««« SUB 6R0UP PROCESSING ««««««««*» 
540 81-0 
550 PRINT 
560 READ 80 
570 81-81-1-1 

580 PRINT TAB(2)|C|"ANY"|S0|" OF TfC FQLLOMXNBl* 
590 C-Ci-1 
600 GOTO 710 

610 REM «»t<«*»««»REQUXRED ITEMS t»««t«««««« 

620 PRINT 
630 READ R« 
640 C-1 
630 81-0 

660 PRINT "REQUIRED "|R«| 

670 FOR K-1 TO N 

680 PRINT TAB<K«3-i-46)|"(X)"| 

690 NEXT K 

700 PRINT 
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710 NEXT I 

720 REN «»*»«*««»««««»«»««««« 

730 REM ««»«» PROSRAM TERMINATION FOLLOW ««t*»»»««««t 

740 PRINT 
730 PRINT 
760 STOP 

770 REM $»«*««««»«»*«»««««« 

780 REM «»««»« DATA ENTRIES FOLLOW »*«$««««««« 

790 DATA «, BREAKFAST 
800 DATA G,l 

810 DATA SOFT BOILED ESQ 

820 DATA POACHED EQB 

830 DATA S,2 

840 DATA ORANGE JUICE 

850 DATA FRESH ORANGE 

860 DATA GRAPEFRUIT 

870 DATA GRAPE/JUICE 

880 DATA 6,1 

890 DATA 1 SLICE BACON 

900 DATA 2 LINKS SAUSAGE 

910 DATA G, 1 

920 DATA TOAST 

930 DATA MUFFIN 

940 DATA f, LUNCH 

9S0 DATA R,2 SLICES BREAD 

960 DATA 8,1 

970 DATA 1 SLICES BOLOGNA 
980 DATA 2 SLICES TURKEY 
990 DATA 6,1 
1000 DATA BUTTER 
1010 DATA MARGARINE 
1020 DATA MAY0NAI8E 
1030 DATA R,MILK 
1040 DATA «, DINNER 
1050 DATA 6,2 

1060 DATA APPLE, PEACH, PEAR, ORANGE JUICE, GRAPEFRUIT JUICE 
1070 DATA S,2 

1080 DATA LETTUCE, TOMATO, GREEN PEPPERS 
1090 DATA S, 1 
1100 DATA BUTTER 

1110 DATA MARGARINE, SALAD DRESSING 

1120 DATA 6,1 

1130 DATA 4 OZ BEEF 

1140 DATA 4 OZ HAM 

1150 DATA 6 OZ BROILED CHICKEN 

1160 DATA END 



HOW MANY DAYS SHALL I PRINT? 2 



It <c « <c He « m « Ht He <( « 

BREAKFAST DAY 



1 2 



CHOOSE 1 OF THE FOLLOMING: 

1 -SOFT BOILED EGG 

2 -POACHED EGG 



( ) ( ) 
( ) ( ) 



3 ANY 2 OF THE FOLLOMING: 

1 -ORANGE JUICE 

2 -FRESH ORANGE 

3 -GRAPEFRUIT 

4 -GRAPE/ JUICE 



< )< ) 
( ) ( ) 
( ) ( ) 

< ) < ) 



CHOOSE 1 OF THE FOLLOW I NGl 

4 -1 SLICE BACON 

5 -2 LINKS SAUSAGE 



< ) ( ) 

< ) ( ) 



CHOOSE 1 OF THE FOLLOWING! 
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6 -TOAST 

7 -MUFFIN 



< ) ( ) 
( >( ) 



««««*«**««««««««««««««««««« 

LUNCH DAY 

1 2 

REQUIRED 2 SLICES BREAD (X) (X) 

CHOOSE 1 OF THE FQLLOMINGt 

1 -1 SLICES BOLOGNA ( ) ( > 

2 -2 SLICES TURKEY < X ) 

CHOOSE 1 OF THE FOLLOW I NGi 

3 -BUTTER < ) < ) 

4 -MARGARINE ( ) < ) 

5 -MAYONAISE < ) < ) 

REQUIRED MILK <X) (X) 
DINNER DAY 

1 2 

CHOOSE 2 OF THE FOLLOWING! 

1 -APPLE < > < ) 

2 -PEACH < ) ( ) 

3 -PEAR < ) < > 

4 -ORANGE JUICE ( ) ( ) 

5 -GRAPEFRUIT JUICE < ) < > 

6 ANY 2 OF THE FOLLOWINOl 

1 -LETTUCE < )< ) 

2 -TOMATO ( > < ) 

3 -GREEN PEPPERS < ) < ) 

7 ANY 1 OF THE FOLLOWINBt 

1 -BUTTER < ) < ) 

2 -MARGARINE < ) < ) 

3 -SALAD DRESSING ( ) ( ) 

CHOOSE 1 OF THE FOLLOWING! 

8 -4 OZ BEEF < ) < ) 

9 -4 OZ HAM ( ) < ) 

10 -6 OZ BROILED CHICKEN < ) ( ) 

MAJOR SYMBOL TABLE - DIET PLANNING - VERSION 2 

I 1 

I NAME .* DESCRIPTION I 

I 1 

I M *• MAXIMUM NUMBER OF DATA READS I 
IN NUMBER OF DAYS TO PRINT I 
I T$ TRANSACTION TYPE I 
I C ITEM COUNTER I 
I GO NUMBER OF GROUP ITEMS TO SELECT I 
I SO NUMBER OF SUBGROUP ITEMS TO SELECT I 
I DESCRIPTION OF REQUIRED ITEM I 
I H« MEAL NAME I 
I 1 

FUNCTIONS USED 

I 1 

I NAME DESCRIPTION I 

I 1 

I TAB •* FORMATS PRINT LINES I 
I 1 
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CATEGORIZING RECIPES - VERSION 1 



Description 

This simple program allows the cook to categorize favorite recipes and 
locate them instantly with the help of the computer. 

Functions of the Program 

The program accepts the recipe code to search for and then locates all 
recipes categorized with that code. The recipe name is printed, along 
with its location and page number. 

Instructions for Use 

Recipes must be entered prior to running the program. 
Data Entry 

All data is entered using DATA statements. 
Data Format 

The format of the DATA statement is: 

Recipe code, Recipe name, Location, Page number 

Output Description 

See example provided. All recipes with a code that matches the selec- 
tion criteria will be printed, or all entries can be printed, if desired. 



10 CALL CLEAR 

20 REM RECIPE LOCATING PROSRAM - BASIC 

30 REM *«»««««««»»«««»«««« DATA INITIALIZATION «*«*»<*««*«*««*» 

40 M=1000 

50 PRINT "SHALL I PRINT ALL ENTRIES"j"< Y OR N )" 
60 INPUT M 
70 PRINT 

80 IF A3i="Y" THEN l&O 

90 PRINT "ENTER THE RECIPE CODE"! "TO FIND" 

100 INPUT X» 

110 PRINT 

120 PRINT 

130 PRINT 

140 PRINT 

150 PRINT X» 

160 PRINT TAB<7) | "RECIPE"; TAB < 14) | "LOCATION"; TAB (25) ; "PASE" 

170 PRINT " " 

180 PRINT 

190 REM »»««»««««»»»»««««« PROCESSING AREA ««««»«»»««««««««*»««« 

200 FOR 1=1 TO M 
210 READ C$ 

220 IF C*="END" THEN 300 

230 READ R$,L»,P$ 

240 IF A*<>"Y" THEN 270 

250 PRINT C«;TAB(7) |R*jTAB<14) jL«iTAB(25) |P* 

260 GOTO 290 

270 IF C»<>X* THEN 290 

280 PRINT TAB(7>|R$;TAB<14> sL$jTAB<25)|P» 
290 NEXT I 

300 REM ««»«*»«»»*««««»«« PROGRAM TERMINATION POINT ««««««*»*«»« 
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310 PRINT 
320 PRINT 
330 STOP 

340 REM **«««««««««*«««»«* DATA ENTRIES FOLLOW 

350 DATA EGGS, EGGS BENEDICT, COOKBOOK 1,200 

360 DATA EGGS, POACHED EGGS, COOKBOOK 1,178 

370 DATA EGGS, FRIED, COOKBOOK 3,13 

380 DATA STEAK, BROILED STEAK, COOKBOOK 2, l& 

390 DATA LAMB, LAMB CHOPS, COOKBOOK 4,18 

400 DATA EGGS, HARD BOILED, COOKBOOK 1,16 

410 DATA EGGS, HARD BOILED, COOKBOOK 4,13 

420 DATA STEAK, SALISBURY STEAK, COOKBOOK 2,16 

430 DATA END 



>RUN 

SHALL I PRINT ALL ENTRIES 

< Y OR N > 

?Y 

RECIPE LOCATION PAGE 



EGGS 


EGGS BENEDICT 








COOKBOOK 


1 


200 


EGGS 


POACHED EGGS 








COOKBOOK 


1 


178 


EGGS 


FRIED COOKBOOK 


3 


13 


STEAK 


BROILED STEAK 








COOKBOOK 


2 


16 


LAMB 


LAMB CHOPS 








COOKBOOK 


4 


18 


EGGS 


HARD BOILED 








COOKBOOK 


1 


16 


EGGS 


HARD BOILED 








COOKBOOK 


4 


13 


STEAK 


SALISBURY STEAK 








COOKBOOK 


2 


16 



>RUN 

SHALL I PRINT ALL ENTRIES 
( Y OR N ) 
?N 

ENTER THE RECIPE CODE 

TO FIND 

7STEAK 



STEAK 

RECIPE LOCATION PAGE 



BROILED STEAK 

COOKBOOK 2 16 
SALISBURY STEAK 

COOKBOOK 2 16 
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MAJOR SYMBOL TABLE - RECIPE - VERSION 1 



I 1 

I NAME DESCRIPTION I 

I 1 

I M •* MAXIMUM NUMBER OF DATA READS I 

IX* RECIPE CODE TO SELECT I 

I R« RECIPE NAME I 

I L* LOCATION I 

IP* PAGE LOCATION I 

T C$ TRANSACTION CODE I 
I 1 

FUNCTIONS USED 
I 1 

I NAME DESCRIPTION I 
I J 

I TAB FORMATS PRINT LINES I 
I 1 
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CATEGORIZING RECIPES - VERSION 2 



Description 

This recipe program is provided for those who wish to recall their 
favorite recipes with the push of a button. The recipes are entered as 
data to the program and then are printed upon request. 

Functions of the Program 

The program allows both the printing of all recipe names available and 
the printing of individual recipes, complete with instructions and 
ingredients. 

Instructions for Use 

All recipe items must be entered prior to nmnmg the program. 
Data Entry 

All data is entered using DATA statements. 
Data Formats 

Data is entered in two formats: 

1. The master record for each recipe has the following form: 

*, Recipe code, Recipe name 

2. Recipe instructions are entered in Englishlike form, without special 
coding. 

Note the END record. 

Output Description 

See example provided. Output can be either a condensed list for review 
purposes or a detailed printout of the selected recipe. 

Suggested Enhancements 

This application is ideal for conversion to disk or tape data file storage. 



10 CALL CLEAR 

20 REM RECIPE FILE PROGRAM - BASIC 

30 REM t«*<«»««««««*t»*«« DATA INITIALIZATION ««tt«»»*»»«tt<t*« 

40 MalOOOO 

SO REM «**t««««»««««««««t BEGIN PROCESSING «t«S«««««tttt«t«*««« 

60 PRINT "WOULD YOU LIKE TO SEE A LIST" i "OF ALL RECIPES < Y OR N)"| 
70 INPUT A« 
80 PRINT 
90 PRINT 

100 IF A«<>"Y" THEN 260 

110 PRINT ••CATEBORY"iTAB<lB) I "RECIPE" 

120 PRINT " 

130 FOR 1=1 TO M 
140 READ Clt 

ISO IF C1«="END" THEN 200 
160 IF Cl«<>"*" THEN 190 
170 READ C2«,R« 
180 PRINT C2$|TAB(12)|R» 
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190 NEXT I 
200 RESTORE 
210 PRINT 
220 PRINT 

230 PRINT "WOULD YOU LIKE TO SEE ANY" I "RECIPES < Y OR N)"| 

240 INPUT M 

250 IF A««"N" THEN 480 

260 PRINT "SHALL I PRINT ALL OF THE" I "ENTRIES <Y OR N)"| 

270 INPUT A» 

280 IF A«a"Y" THEN 310 

290 PRINT "ENTER THE RECIPE TO SEARCH"! "FOR" | 
300 INPUT Xt 

310 REM »»««»«»«««««««« MAJOR PR0CERESSIN8 LOOP *«»**««*«««««$>« 

320 FOR I-l TO n 
330 READ Cl« 

340 IF C1«»"END" THEN 480 
350 IF Cl«<>"»" THEN 450 
360 PRINT 
370 S-0 

380 READ C2*,Rt 
390 IF A*="Y" THEN 410 
400 IF R«<>X« THEN 470 
410 SbI 

420 PRINT C2e|TAB<12)|R» 

430 PRINT " " 

440 GOTO 470 
450 IF SOI THEN 470 
460 PRINT TAB(7)|C1» 
470 NEXT I 

480 REM «*»«««»«»*»«»««»« PR08RAM TERMINATION POINT ««»«**«««»*» 

490 PRINT 
500 PRINT 
510 STOP 

520 REM *«t«t«*»«««t««t«» DATA ENTRIES FOLLOW «««««««««$««««$$«« 

530 DATA «,E6QS,EQB8 .BENEDICT 

540 DATA THESE ARE THE INSTRUCTIONS FOR 

550 REM E66S BENEDICT. IT INCLUDES ANYTHINB 

560 DATA DESIRED AS L0N8 AS THERE ARE NO COMMAS. 

570 DATA t,EQ88, FRIED 

580 DATA INSTRUCTION 1 FOR FRIED E6B8 

590 DATA INSTRUCTION 2 FOR FRIED E668 

600 DATA «, STEAK, BROILED STEAK 

610 DATA INSTRUCTION 1 FOR STEAK 

620 DATA INSTRUCTION 2 FOR STEAK 

650 DATA *, EGGS, HARD BOILED 

640 DATA INSTRUCTION 1 FOR HAROBOILEO EGOS 

6iS0 DATA INSTRUCTION 2 

660 DATA «, STEAK, PAN-FRIED 

670 DATA INSTRUCTION 1 

680 DATA END 



'^Bntjup YOU LIKE TO SEE fl LIST 
□F ALL RECIPES < Y □! N>? Y 



CfiTEGORY RECIPE 






STEAK BROILED STEAK 



INSTRUCTION 1 FOR STEAK 
INSTRUCTION 2 FDR STEAK 
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MAJOR SYMBOL TABLE - RECIPE - VERSION 2 



I 1 

I NAME DESCRIPTION I 

I 1 

I M MAXIMUM NUMBER OF DATA READS I 
I Cl$ TRANSACTION CODE/INSTRUCTION I 
I C2f RECIPE CODE I 
I R« *• RECIPE NAME I 
I X« RECIPE TO SEARCH FOR I 
I 1 

FUNCTIONS USED 

I 1 

I NAME *. DESCRIPTION I 

I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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FREEZER INVENTORY - BASIC VERSION 



Description 

This program allows you to maintain and control an inventory of all 
items in your freezer. Either a full list of the freezer's contents or a list 
of all items of a selected type can be printed when desired. 

Functions of the Program 

The program initializes the entries based upon keyboard inputs and 
then prints the requested items. 

Instructions for Use 

Freezer inventory items must be given an item number and entered as 
data to the program prior to running it. Items used should be recorded 
and deleted from the data list at the time of use to insure the continued 
accuracy of your inventory. 

Data Entry 

Data is entered using DATA statements. 
Data Format 

A single data format is used by the program. It is recommended that 
the data items be entered in item number order. The format is: 
Item code, Description, Item number, 
Month, Year item was placed in freezer. Months of freezer life 
Note the END record. 

Output Description 

See example provided. Two forms of output arc available: 

1. A list of the current contents (all entries). 

2. A list of all items of a specified type. 

Suggested Enhancements 

The possibility of disk or tape-file storage and update of the inventory 
items should be considered for ease of use. 



10 CALL CLEAR 

20 REM FREEZER INVEMTORY PROGRAM 

30 REM *««««««««»»«»«»»«« DATA INITIALIZATION *«««*«««»»««*««*» 

40 M=1000 

50 PRINT "ENTER THE DATE (MONTH, DAY, "YEAR) I.E., JUL, 15, 1983" 
60 INPUT C1*,C2,C3 

70 PRINT "SHALL I PRINT ALL ENTRIES": "< Y OR N)"i 
80 INPUT A» 
90 PRINT 

100 IF A$"="Y" THEN 140 

110 PRINT "ENTER THE ITEM CODE TO" s "FIND"; 
120 INPUT X* 
130 PRINT 
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140 PRINT 
150 PRINT 

160 PRINT TAB(2)|'*T0DAY'S OATEi "IC14IC2IC3 
170 PRINT 

180 PRINT "NAME" ; TAB <6) I " ITEM" J TAB (13) I "NBR" J TAB < 18) I "DATE" J 
190 PRINT TAB(24)j"MTHS"xTAB<19) J"IN" 

200 PRINT " " 

210 REM 
220 REM 

230 REM «»«««««»»«««*«»«» PROCESSING AREA *«««««»««<«««*««*«««»< 

240 FOR 1=1 TO M 
2S0 READ Il« 

260 IF I1«="END" THEN 340 
270 READ I2«,N,D1»,D2,T 
280 IF A$<>"Y" THEN 310 

290 PRINT I1«;TAB(6)|I2$;TAB(12)|N|TAB(17)|D19{D2|TAB(24)}T 
300 GOTO 330 

310 IF I1«<>X« THEN 330 

311 C«=C+1 

312 IF C=l THEN 320 

313 11%=" " 

320 PRINT Il«|TAB(6))I29(TAB(12))N|TAB(17)|Die|D2|TAB(24)|T 
330 NEXT I 

340 REM «««»*t«««t«« PROGRAM TERMINATION POINT «t»*«««««« 
3S0 PRINT 
360 PRINT 
370 STOP 

380 REM DATA ENTRIES FOLLOW ««»»««««««»« 

390 DATA BEEF,STEAK,100,JAN,19, 18 

400 DATA PQRK,ROAST, 101, JAN, 10,9 

410 DATA BEEF,BURGER,103,FEB,2, 18 

420 DATA PORK, CHOPS, 104, FEB, 9, 9 

430 DATA P0RK,BAC0N,10S,MAR,9,18 

440 DATA VE6,C0RN, 106,JUN,7,1B 

450 DATA LAMB, CHOPS, 107, AUG, 9, 6 

460 DATA PORK, BACON, 108, DEC, 24, 6 

470 DATA BEEF,STEAK,109,JAN,2,18 

480 DATA BEEF,BURGER,110,FEB,1,18 

490 DATA END 




TODAY'S DflTEJ JUN 1 
NAME ITEM NBR DATE 



1983 



MTHS 
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TDDflY'S DflTEi JUN 1 1983 

NRME ITEM NBR DATE MTHS 

I N 

iiiF~iTifiK~~Too"jflN~ii ii~ 

BURGER 103 FEB 2 18 
STERK 109 JflN 2 18 
BURGER 110 FEB 1 18 



MAJOR SYMBOL TABLE - FREEZER LIST - BASIC 
I 1 

I NAME ** DESCRIPTION I 

I 

I M 
I Clf 
I C2 
I C3 
I X% 
I 12% 
I N 

I mt 

I D2 
I T 
I lit 
I C 

I 

FUNCTIONS USED 
I 

I NAME .* DESCRIPTION 
I 

I TAB FORMATS PRINT LINES 
I 



MAXIMUM NUMBER OF DATA READS 
CURRENT MONTH 
CURRENT DAY 
CURRENT YEAR 

TRANSACTION CODE TO LOCATE 
ITEM 

NUMBER OF ITEM 

DATE INTO FREEZER-MONTH 

DATE INTO FREEZER-YEAR 

MONTHS OF FREEZER LIFE 

TRANSACTION CODE 

COUNTER 
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FREEZER INVENTORY - EXTENDED VERSION 



Description 

This program provides a perpetual inventory of your freezer's contents, 
complete with an analysis of the items scheduled to reach their maxi- 
mum freezer life. Its use will help to insure the greatest possible savings 
from your freezer. 

Functions of the Program 

The program initializes all data elements, including month name abbre- 
viations prior to processing. Depending upon the answers that you 
provide to the questions asked by the program, a Ust will be provided in 
one of several formats. The expiration date list is sorted by expiration 
dates (computed from the date in and the months of freezer life for the 
item). The program's various processing elements have been separated 
to provide flexibility for extension of any of its features. 

Instructions for Use 

Freezer inventory items must be entered as data items to the program. 
Items used should be recorded and deleted from the data list at the 
time of use to insure the continued accuracy of your inventory. 

Data Entry 

All data items are entered as DATA statements. 
Data Format 

A single data format is used: 

Item code, Description, Item number, 
Month, Year item was placed in freezer. Months of freezer life 
Note the END data card. 

Output Description 

See example provided. Three forms of reports are available: 

1. A list of the freezer's entire contents. 

2. A list of all items of a specific type. 

3. A sorted list that is in order by expiration date or item types. 
Suggested Enhancements 

The possibiHty of disk or tape-file storage should be considered for this 
program. 
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10 CALL CLEAR 

20 REM »«»«»««*»»«««t«««» FREEZEER INVENTORY PROGRAM «*»»»»««»> 
30 REM »««««»«»*»«««««*«» DATA INITIALIZATION »««»»«»«««*««»«»« 

40 DIM E3(37) 
50 DIM E4<37) 
60 DIM M«(13) 
70 M*(l)a"JAN" 
80 M*<2)="FEB" 
90 M»<3)="MAR" 
100 M*<4)a"APR" 
110 M*<S)="MAY" 
120 M*(6)="JUN" 
130 M$<7)«"JUL" 
140 M*<8)="AUB" 
150 Mi>(9>="SEP" 
160 M»<10)="0CT" 
170 M*(11)="N0V" 
180 M«<12)="DEC" 
190 M*( 13) ="???" 
200 M=1000 

210 PRINT "ENTER THE DATE <MONTH,DAY"i ".YEAR) I.E., JUL, 15, 1979" 
220 INPUT Cl$ C2 C3 

230 PRINT "SHALL* I PRINT ALL ENTRIES"! "< Y OR N )"| 
240 E2=D2 
250 INPUT A« 
260 PRINT 

270 IF A««"Y" THEN 310 

280 PRINT "ENTER THE ITEM CODE TO" 8 "FIND" | 
290 INPUT X* 
300 GOTO 390 

310 PRINT "SHALL I PRINT THE ITEMS IN" i "THE ORDER X HAVE THEM < Y OR N )"| 

320 INPUT AO* 

330 IF AO«»"Y" THEN 360 

340 PRINT "IN ORDER BY ITEM CODE <I) OR" I "EXPIRATION DATE <E)"| 
350 INPUT A» 
360 PRINT 
370 PRINT 
380 PRINT 

390 REM »»«»»«««*»««»««»«» PROCESSING AREA »*«»««»»»««»«»*»»«»»« 

400 PRINT TAB<2) I "TODAY'S DATEi ";C1*;C2;C3 
410 PRINT 

420 IF A«""I" THEN 640 
430 IF A»="E" THEN 970 

440 PRINT "CODE" | TAB <6) | " ITEM" j TAB < 12) | "NBR" | TAB < 16) | "DATE" 
450 PRINT TAB < 17) I "IN" I TAB (22) J "MONTHS" 

460 PRINT " 

470 REM 

480 PRINT 

490 FOR 1=1 TO M 

500 READ Il« 

510 IF I1»="END" THEN 590 
520 READ I2S,N,D1«,D2,T 
530 IF A«<>"Y" THEN 560 

540 PRINT I1()TAB<6)|I2«|TAB(12)|N{TAB(17)|D1«}D2{TAB(24)|T 

550 GOTO 580 

560 IF I1«<>X» THEN 580 

570 PRINT Il«|TAB(6)|I2»|TAB<ll)|NfTAB(16)|Dl«|D2|TAB(23)|T 
580 NEXT I 

590 REM «»«»«««*»«««»«»«««« PROGRAM TERMINATION POINT 
600 PRINT 
610 PRINT 
620 PRINT 
630 STOP 

640 REM »«*«»»«»«»«*»»« ITEM CODE BREAKDOWN AND PRINT ««*»«»«»«« 
650 PRINT "ITEM CODE" | TAB (7) j "ITEM"? TAB (15) j "NBR" | TAB (19) j "DATE" j 
660 PRINT TAB (24) I "MTHS" I TAB (19) I "IN" 

670 PRINT " " 

680 REM 
690 1=1 

700 FOR J=l TO M 
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710 READ II* 

720 IF I1*="END" THEN 8B0 

730 READ K2$,N,D1»,D2,T 

740 IF J>I THEN 830 

750 IF J<I THEN 870 

760 S«>Ii« 

770 IF 1=1 THEN 8S0 

780 RESTORE 

790 FOR K=il TO J 

800 READ Il«, I2«,N,D1$,D2,T 

810 IF SSOIl* THEN 830 

820 C=C+1 

830 NEXT K 

840 IF Ol THEN 880 

8S0 IF I1«<>S» THEN 870 

860 PRINT Il$;TAB(7){I2i>;TAB(lS}}Dl«{D2;TAB(19)|T 
870 NEXT J 
880 RESTORE 
890 C=0 

900 IF I>1 THEN 920 
910 M=J-1 
920 PRINT 
930 1=1+1 

940 IF I<«M THEN 700 
950 GOTO 390 
960 PRINT 

970 REM »««*««* EXPERATION DATE BREAKDOWN AND PRINT «««»««4E««»f 

980 PRINT TAB < 1 ) j "EXP" | TAB (8) | "CODE" f TAB < 13) ; "ITEM" j TAB ( 19) | "NBR" i TAB (23) ; "DATE" 

990 PRINT "DATE" 

1000 PRINT " " 

1010 REM 

1020 REM «t«*«»»«»**»«»« BUILD AND SORT EXP DATE ARRAY »«»»»«»»«* 
1030 FOR J°l TO M 
1040 READ Il« 

1030 IF I1»="END" THEN 1180 

1060 READ I2«,N,D1»,D2,T 

1070 GOSUB 1490 

1080 FOR K=l TO 36 

1090 IF E3(K)=0 THEN 1140 

1100 IF E2<>E4<K)THEN 1130 

1110 IF L1<>E3<K)THEN 1130 

1120 GOTO 1170 

1130 NEXT K 

1140 E3<K)»=L1 

IISO M3=M3+1 

1160 E4(K)=E2 

1170 NEXT J 

1180 REM «***««««««»««»«** SORT ENTRIES «««»««»»»»«««t««**«««<««t 

1190 FOR 1=1 TO M3-1 

1200 FOR K=I+1 TO M3 

1210 IF E4{I)<E4<K)THEN 1300 

1220 IF E4(I) >E4<K)THEN 1240 

1230 IF E3<1)<=E3(K)THEN 1300 

1240 E4<37)=E4<I) 

1250 E3<37)=E3(I) 

1260 E4(I)=E4(K) 

1270 E3(I)"E3(K) 

1280 E4(K)=E4(37) 

1290 E3(K)=E3(37) 

1300 NEXT K 

1320 REM »»«««««»«««* PRINT OF RESULTS AFTER THE SORT «»»«»»««»«« 

1330 RESTORE 
1340 FOR J=l TO M3 
1350 FOR 1=1 TO M 
1360 READ Il« 

1370 IF I1S="END" THEN 1450 
1380 READ I2«,N,D1«,D2,T 
1390 GOSUB 1490 

1400 IF E1»<>M*(E3(J))THEN 1440 
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1410 IF E2<>E4(J)THEN 1440 

1420 PRINT E1«;E2;TAB(8);I1$|TAB{13> jI2*;TAB(18);N|TAB(23) jDl$|D2j 

1430 REM PRINT TAB(67>|T 

1440 NEXT I 

1450 RESTORE 

1460 PRINT 

1470 NEXT J 

1480 GOTO 590 

1490 REN *«««»»»»*«»«»««»« EXPIRATION DATE CONVERSION ««««««»«««« 

1500 E2=D2 

1510 FOR L=l TO 12 

1520 IF M*(L><>D1» THEN 1330 

1530 L1=L 

1540 GOTO 1580 

1550 NEXT L 

1560 Ll=13 

1570 IF Ll=13 THEN 1630 
1580 L1=L1+T 

1590 IF Ll<=12 THEN 1630 

1600 H=L1-12 

1610 E2=E2+i 

1620 GOTO 1590 

1630 E1$=M$<L1) 

1640 RETURN 

1650 REM «««»«««»««*«««»»» DATA FOR INITIALIZATION t«t*f ««**«»«** 
1660 REM «»«««««»»«»»«»»«> DATA ENTRIES FOLLOW ««««««««»»»«««»« 

1670 DATA BEEF,STEAK, 100,JAN,79,18 
1680 DATA PORK, ROAST, 101, JAN, 79, 9 
1690 DATA BEEF,BUR6ER, 103,FEB,79, 18 
1700 DATA PORK, CHOPS, 104, FEB, 79, 9 
1710 DATA PORK,BACON, 105,MAR,79,18 
1720 DATA VEQ,CORN, 106,JUN,79, 18 
1730 DATA LAMB, CHOPS, 107, AUG, 79, 6 
1740 DATA PORK, BACON, 108, DEC, 79, 6 
1750 DATA BEEF,STEAK,109,JAN,79,18 
1760 DATA BEEF,BURQER,110,FEB,79,18 
1770 DATA END 




SHRLL I PRINT THE ITEMS I 
THE^DRDER I HRVE THEM X Y 
N > ? Y 



TODRY'S DflTEJ JUN 1 
CODE ITEM NBR DRTE 

IN 



1983 



MTHS 




>RU 




1983 
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CODE ITEM 



NBR DRTE 
IN 



MTHS 



PDRK RDflST 101 JflN 79 9 

PORK CHOPS 104 FEB 79 9 

PORK BflCDN 105 MflR 79 18 

PDRK BflCDN 108 DEC 79 6 



iYEflR> I.E.» JUL»15,1979 
? JUN , 1 , 1983 

SHALL I PRINT ALL ENTRIES 
<YdRN>?Y 

SHALL I PRINT THE ITEMS IN 
THE DRgER 1 HAVE THEM < Y OR 



TODAY'S DATES JUN 1 1983 
CODE ITEM NBR DATE 



OCT 79 PDRK 

NOV 79 PDRK 

Kfifi §9 LAMB 

JUN 80 PDRK 

JUL 80 SbEEF 

JUL 80 BEEF 

AUS 80 BEEF 



ROAST 
CHOPS 
CHOPS 
BACON 
STEAK 
STEAK 
BURGER 



101 
104 
107 
1 08 
100 
109 



JAN 79 

FEB 79 

AUG 79 

DEC 79 

JAN 79 

JAN 79 



AUG 80 BEEF BURGER 



103 FEB 79 



SEP 80 PDRK 
DEC 80 VEG 



BACON 
CORN 



1 1 
1 05 
1 06 



FEB 79 
MAR 79 
JUN 79 



MAJOR SYMBOL TABLE - FREEZER LIST - EXTENDED 



NAME 




• • 


DESCRIPTION 


E3( 


> 


* • 


ARRAY FOR EXPIRATION DATE SORT* 


E4< 


> 


• • 


ARRAY FOR EXPIRATION DATE SORT 


Mi< 


> 


* * 


MONTH NAME ARRAY 


H 




• * 


MAXIMUM NUMBER OF DATA READS ] 


Cl« 




• • 


CURRENT MONTH ] 


C2 




• • 


CURRENT DAY 


C3 




• • 


CURRENT YEAR 


X$ 




• • 


TRANSACTION CODE TO LOCATE 


lit 




» • 


TRANSACTION CODE 


12% 




• • 


ITEM DESCRIPTION 


N 




• • 


ITEM NUMBER 


Dl^ 




• • 


DATE INTO FREEZER -MONTH 


D2 




• • 


DATE INTO FREEZER - YEAR 


T 




• • 


MONTHS FREEZER LIFE 


El« 




• • 


EXPIRATION MONTH 


E2 




• • 


EXPIRATION YEAR 


FUNCTIONS USED 


NAME 




• • 


DESCRIPTION 


TAB 




• • 


FORMATS PRINT LINES 


GOSUB 


• • 


BRANCHES AND RETURNS 


DIN 




• • 


SINGLE DIMENSION ARRAYS 
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SUPERMARKET LIST 



Description 

This program assists the homemaker by producing a grocery shopping 
list that is listed by categories to facilitate fast and efficient shopping. 

Functions of the Program 

The program begins by initializing the seven major food categories pro- 
vided. Additional categories can be added easily, if desired. Prior to the 
printing of the grocery list, all data items are read and validated for 
accuracy. The major processing area of the program cycles through the 
data (once for each food category) and produces the formatted listing. 

Instructions for Use 

Data statements must be provided to the program prior to running it. 
Data Entry 

All data is entered using DATA statements. 
Data Format 

The format of the grocery list items is: 

Food category code, Item description, Quantity 
Note the END data record. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM SUPERMARKET LIST 

30 REM ««««««««««««»»««« DATA INITIALIZATION «««««««««««««««««« 

40 M»1000 

50 DIM T*<7) 

60 Ml =7 

70 T«<1)="M" 

80 N« ( 1 ) ="MEAT" 

90 T$<2)="FF" 

100 N« (2) ""FRESH FRUIT" 

110 T*<3)»"CF" 

120 N«(3)="CANNED FRUIT" 

130 T«<4)n="FV" 

140 N«(4)="FRESH VEGETABLES" 
150 T«<S)="CV" 

160 N* (5) ""CANNED VEGETABLES" 
170 T«(6)="D" 

180 N$<6) ""DAIRY PRODUCTS" 
190 T«(7>="0" 
200 N*<7) ""OTHER" 

210 REM »««««««««««««« CHECK FOR DATA ACCURACY «»««»««(.***«««««« 

220 FOR I"l TO M 
230 READ Tl« 

240 IF T1«""END" THEN 310 

250 READ I«,Q$ 

260 FOR J=l TO Ml 

270 IF T1*=T*<J)THEN 300 
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280 NEXT J 

290 PRINT "FOOD TYPE FOR ITEM «";Is" ";!«;" IS NOT RECOGNIZED" 
300 NEXT I 

310 PRINT "SHALL I CONTINUE < Y OR N) " 

320 INPUT A* 

330 IF A«="N" THEN 300 

340 RESTORE 

350 REM ««««*««««««(««*« PROCESSING AREA »«»|c«*«««t:t«t«»«4c««t«tt 

360 FOR 1=1 TO Ml 
370 PRINT 
380 PRINT 

390 PRINT " ";N«(I) 

400 PRINT " " 

410 FOR J^l TO M 
420 READ Tit 

430 IF T1«="END" THEN 480 

440 READ I$,Q$ 

450 IF Tl*<>Tt (I)THEN 470 

460 PRINT Q$;TAB(11);I$ 

470 NEXT J 

480 RESTORE 

490 NEXT I 

500 REM tttttt********** PROGRAM TERMINATION POINT t««»t««*»*t«« 

510 PRINT 
520 PRINT 
530 STOP 

540 REM »»««««*«««««*«« DATA ENTRIES FOLLOW «««««**««««««»»*«««t 

550 DATA M, STEAK, 1 LARGE 

560 DATA D, MILK, 5 GALS 

570 DATA FF, APPLES, 1 BAG 

580 DATA CV, GREEN BEANS, 2 CANS 

590 DATA CV,YELLOM BEANS,! CAN 

600 DATA CF, PEACHES, 1 CAN 

610 DATA FF, PEARS, 1/2 DOZEN 

620 DATA 0,DOG FOOD, BAG 

630 DATA DAIRY, BUTTER, 1 POUND 

640 DATA &ND 



RUN 

FOOD TYPE FOR ITEM « 9 BUTTER IS NOT RECOGNIZED 
SHALL I CONTINUE < Y OR N) 
? Y 



MEAT 



1 LARGE STEAK 



FRESH FRUIT 



1 BAG APPLES 
1/2 DOZEN PEARS 



CANNED FRUIT 



1 CAN PEACHES 



FRESH VEGETABLES 



CANNED VEGETABLES 



2 CANS GREEN BEANS 
1 CAN YELLOW BEANS 
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DAIRY PRODUCTS 
5 GALS MILK 



OTHER 



BAG DOG FOOD 



HAJOR SYHBOL TABLE - SUPERMARKET LIST 



NAME 


• • 


DESCRIPTION 


M 


• • 


MAXIMUM NUMBER OF DATA READS ] 


T$< ) 


• • 


MASTER CATEGORY CODE ARRAY ] 


N«< ) 


• » 


MASTER CATEGORY DESCRIPTION ARRAY ] 


Ml 


• • 


NUMBER OF CATEGORIES ] 


Tl$ 


• • 


TRANSACTION CODE ] 


It 


* • 


TRANSACTION DESCRIPTION ] 




• • 


TRANSACTION QUANTITY ] 



FUNCTIONS USED 
I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM SINGLE DIMENSION ARRAYS 

I 
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^ 




TV Scheduling 

Reminder Calendar— Basic Version 
Reminder Calendar-Extended Version 
Job Jar 
Chores 

Lawn/Plant Care 
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TV SCHEDULING 



Description 

This program eliminates difficulties arising from family television 
viewing conflicts. It produces a weekly schedule that details the time, 
channel, and person scheduled to view a particular television show. 

Functions of the Program 

This program has several subroutines. Each is designed to perform a 
specific printing function. If extensions are desired, they should be 
relatively easy to accomplish by changing the individual routines. The 
program reads the scheduled items from DATA statement?, determines 
their placement in the schedule, and then prints the schedule for the 
week. 

Instructions for Use 

Provide all individual schedule items prior to running the program. 
Priority in scheduling is given to the last entry read. Note the method 
used to indicate time: At 1200, the counter moves to 0030. 

Data Entry 

All data is entered using DATA statements. 
Data Format 

All data is entered using a single format: 

Person, Day of the week, Start time. Stop time, Channel number 
Note the END data record. 

Output Description 

See example provided. Output is printed for seven days. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 



10 CALL CLEAR 

20 REM TELEVISION SCHEDULE PROGRAM 

30 REM *»«««««»*«««««« OPEN STATEMENT FOR PRINTER ««»«««***«*«« 
40 REM «*« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT *»» 
50 OPEN #1: "RS232.BA=9600.DA=8" 

60 REM t**^l^***il^tilHI|,**1^*tt** ENTRY OF START/STOP TIMES «»*«*»«««« 
70 PRINT "ENTER STARTING TIME FOR THE" s "SCHEDULE I.E., 430" 
80 INPUT TO 

90 PRINT "ENTER STOPPING TIME FOR THE" s "SCHEDULE I.E., 1130" 
100 INPUT Tl 

110 REM «««*««««««««*«»«»««« DATA INITIALIZATION t«*««««««««**»« 

120 M0=2 

130 Ml=7 

140 DIM D0*(7) 

150 DIM Cl«<7) 

160 DIM Nl$(7> 

170 FOR 1=1 TO 7 
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IBO N1«<I)=" " 
190 C1«(I)«=" " 
200 NEXT I 
210 DIM N0$(7) 
220 D0«(1)="SUN" 
230 D0«(2)»"M0N" 
240 D0«<3)«»:"TUE" 
250 D0«<4)o"WED" 
260 D0«(5)a"THU" 
270 D0«<6)="FRI" 
2B0 D0«<7)«="SAT" 

290 REM ««*«««*«««««(«*«««« PROCESSING LOOP 
300 60SUB 720 
310 XO=TO 

320 X1=X0-100*<INT(X0/100) ) 
330 IF XK60 THEN 350 
340 X0=X0+100-X1 

350 IF INT<X0/100) >=10 THEN 370 
360 PRINT #li" "; 
370 PRINT #1:X0; 
380 GOSUB 790 

390 REM *********** CHECKS SCHEDULE ENTRIES FOR TIME »»«**«««(«« 

400 FOR J=l TO 336 

410 READ N«,D1$,S0,S1,C0« 

420 IF N$="END" THEN 510 

430 IF SO>XO THEN 500 

440 IF S1<=X0 THEN 500 

450 FOR K«l TO 7 

460 IF D1«<>D0«<K)THEN 490 

470 N14KK)«=N* 

4B0 C1$(K)<=C0$ 

490 NEXT K 

500 NEXT J 

510 GOSUB B70 

520 REM *************** PRINTS SCHEDULE ENTRIES **************** 

530 PRINT #1:" I"; 

540 FOR K=l TO 7 

550 PRINT «li" ";N1$(K>;" "i 

560 REM 

570 REM 

580 PRINT ttl:Cl«<K);" I"y 

590 NHi<K)o" 

600 C1«<K)«=" 

610 NEXT K 

620 PRINT «1» 

630 GOSUB 870 

640 RESTORE 

650 X0=X0+30 

660 IF X0<T1+1 THEN 320 

670 REM ****************** PROGRAM TERMINATION POINT *********** 

680 PRINT #1:" "| 
690 GOSUB 790 
700 STOP 

710 REM ****************** SUBROUTINES FOLLOW «;»***«««**«*««««** 
720 REM ******************* PRINT HEADINGS ********************* 

730 PRINT #1:" "; 

740 FOR 1=1 TO Ml 

750 PRINT #ls» ";D0«(I)j" "| 

760 NEXT I 

770 PRINT All 

780 RETURN 

790 REM «««*««i|c**«*««i|[«««« PRINTS SCHEDULE OUTLINE ************* 

BOO PRINT #li" "I 
810 FOR 1=1 TO Ml 

B20 PRINT #1:"I "| 

830 NEXT I 

840 PRINT #1:"I" 

850 RETURN 

860 REM **************** VERTICAL LINES ************************ 

870 PRINT #1»" "I 
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880 FOR 1=1 TO Ml 

890 PRINT #1:"I "| 

900 NEXT I 

910 PRINT #1:"I" 

920 RETURN 

930 REM *»««»«»««*«*«««««« DATA ENTRIES FOLLOW «««««**«*««««««»** 

940 DATA BOB, TUE, 1000,1100,9 
950 DATA CHUC, WED, 930, 1000,7 
960 DATA DAD, SAT, 930, 1100,7 
970 DATA RIK, FRI, 1030, 1100,7 
980 DATA MOM, WED, 930, 1000,9 
990 DATA END, X, 0,0,0 
1000 CLOSE #1 



RUN 

ENTER STARTING 
SCHEDULE I.E., 
? 930 

ENTER STOPPING 
SCHEDULE I.E., 
7 1130 



TIME 
430 

TIME 
1130 



FDR THE 



FOR THE 



SUN 



MON 



TUE 



WED 



THU 



FRI 



SAT 



930 



1000 



1030 



1100 



1130 



I 

I ] 
I ] 


I MOM 9 I 


I DAD 7 


I 

I ] 
I ] 


BOB 9 1 I 


I DAD 7 


I ] 
I ] 

I ] 

1 ] 

I ] 
I ] 
I ] 


BOB 9 1 I 


RIK 7 I DAD 7 


1 ] 

I ] 
I ] 
I 







MAJOR SYMBOL TABLE - TV SCHEDULING 
I 



I 


NAME 


DESCRIPTION 


I 


TO 


SCHEDULE START TIME 


I 


Tl 


SCHEDULE STOP TIME 


I 


D0« 


DAYS OF WEEK ARRAY 


I 


Cl( ) 


CHANNEL PRINT ARRAY 


I 


Hlti )*• 


NAME PRINT ARRAY 


I 


XO 


TIME INCREMENT COUNTER 


I 


N$ 


NAME 


I 


Dit 


DAY OF UEEK 


I 


SO 


START TIME OF SHOW 


I 


81 *• 


STOP TIME OF 8H0U 


I 


CO 


CHANNEL 



FUNCTIONS USED 



NAME 


DESCRIPTION 


INT 


CONVERTS NUMBER TO INTEGER 


GOSUB 


BRANCHES TO AND RETURNS 


DIM 


*• SINGLE DIMENSION ARRAYS 
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REMINDER CALENDAR - BASIC VERSION 



Description 

This program produces a simple reminder calendar for the busy indi- 
vidual or family. The items are printed in abbreviated form on the 
calendar, and a detailed list is printed upon request. 

Functions of the Program 

The program prints, for the month selected, a calendar and list of the 
items scheduled. Most program functions are executed using subrou- 
tines to facilitate extensions or modifications to the basic listing. The 
major processing loop occurs in lines 210-420. All functions occurring 
after the termination point are performed using GOSUBs. 

Instructions for Use 

All scheduled items must be entered prior to running the program. 
Data Entry 

All data items are entered using DATA statements. 
Data Formats 

There are two data formats used by the program: 

1. The master month record is entered as the first item: 

Month name, Days in month. Day of week that month starts on 

2. Schedule items are provided in the following format: 

Month, Day, Abbreviated description, Description 

Output Description 

See example provided. The program produces a calendar and a detailed 
print of the scheduled items. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 



10 CALL CLEAR 

20 REM REMINDER SCHEDULE - BASIC 

30 REM *»»*««»«»«««*«« OPEN STATEMENT FOR PRINTER «««tt««««t«*« 

40 REM ««« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT »«» 

SO OPEN «i: "R5232.BA°9600.DA°8" 

60 REM *««««« DATA INITIALIZATION 

70 S0=0 

80 L0=0 

90 Ml =7 

100 M2=6 

110 DIM D6«(7) 

120 DIM D7<7) 

130 DIM D0«<7) 

140 D0«(1)="SUN" 

130 D0$<2>=»"M0N" 

160 D0*<3)="TUE" 

170 D0*(4)="WED" 
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180 D0*<5)="THU" 
190 D0$(6)="FRI" 
200 D0*<7)="SAT" 
210 FOR 1=1 TO 7 
220 D6*<I)=" 
230 NEXT I 

240 REM PROCESSING LOOP 

250 READ M*,D,D1« 

260 FOR K=l TO 7 

270 IF D1*<>D0«<K)THEN 290 

280 S0=K 

290 NEXT K 

300 IF S0=0 THEN SIO 

310 60SUB 520 

320 FOR J=l TO M2 

330 60SUB 590 

340 FOR K=l TO 7 

350 N1*(K)=" " 

360 NEXT K 

370 IF D<=10 THEN 460 

380 QOSUB 650 

390 FOR L=l TO 10 

400 60SUB 980 

410 IF L1=0 THEN 450 

420 60SUB 870 

430 L0=L0+1 

440 NEXT L 

450 NEXT J 

460 REM ****** PROGRAM TERMINATION POINT ***»«*««» 

470 PRINT "SHALL I PRINT THE SCHEDULED ITEMS ( Y OR N >7" 

480 INPUT A* 

490 IF A$<>"Y" THEN 510 

500 GOSUB 1170 

510 STOP 

520 REM ******** PRINTS HEADINGS ********* 

530 PRINT #1:" "sTAB(38)jM« 

540 FOR 1=1 TO 7 

550 PRINT #ls" "jDO*(I)j" 

560 NEXT I 

570 PRINT #1 

580 RETURN 

590 REM ******** PRINTS SCHEDULE OUTLINE ««*»«««« 
600 FOR 1=1 TO Ml 

610 PRINT #1:"I "{ 

620 NEXT I 

630 PRINT «1»"I" 

640 RETURN 

650 REM ***** PRINTS CALENDER DAY LINE «****«« 
660 FOR 1=1 TO Ml 
670 IF JOl THEN 700 
680 IF lOSO THEN 700 
690 10=1 

700 IF D>=10 THEN 740 

710 PRINT #lz"I "i 

720 10=10+1 

730 GOTO 830 

740 IF I0>9 THEN 810 

750 IF lOOO THEN 780 

760 PRINT #1:"I "i 

770 GOTO 830 

780 PRINT #1:"1 "jIOj" "j 
790 10=10+1 
800 GOTO 830 

810 PRINT #ls"I "jIOj" "p 

820 10=10+1 

830 NEXT I 

840 PRINT #1:"I" 

850 L0=0 

860 RETURN 

870 REM ***** VERTICAL LINES ******* 
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BBO FOR 1=1 TO Ml 

890 IF D6*(I)=" " THEN 940 

900 PRINT #1:"I "jDAtd)!" "j 

910 D6*<I)=" " 

920 D7(I)=0 

930 BQTO 950 

940 PRINT #li"I "I 

950 NEXT I 

960 PRINT ttlj"!" 

970 RETURN 

980 REM ««*««« REVIEWS SCHEDULE ITEMS «««*«« 
990 RESTORE 
1000 L1=0 

1010 READ M«,D,D1« 

1020 FOR 1=1 TO 100 

1030 READ M3«,D3,D4$,D5« 

1040 IF M3«="END" THEN 1160 

1050 IF D3>D THEN 1150 

1060 IF M3«<>M* THEN 1150 

1070 IF D3>=10 THEN 1150 

1080 IF D3<I0-7 THEN 1150 

1090 Il«=D3-I0+8 

1100 D7<I1)=D7<I1)+1 

1110 IF D7<I1)<=L0 THEN 1150 

1120 IF D6«<I1)<>" » THEN 1150 

1130 D6«(I1)=D4« 

1140 Ll=l 

1150 NEXT I 

1160 RETURN 

1170 REM ***««* DETAILED PRINT OF SCHEDULE »«**« 

1180 PRINT #1 

1190 PRINT #1:M« 

1200 RESTORE 

1210 READ M$,D,D1« 

1220 FOR 1=1 TO 100 

1230 READ M3«,D3,D4«,D5« 

1240 IF M3«="END" THEN 1290 

1250 IF D3>D THEN 1280 

1260 IF M3«<>M$ THEN 1280 

1270 PRINT ttlsD3,D4«,D5« 

1280 NEXT I 

1290 RETURN 

1300 REM «*«***« DATA ENTRIES FOLLOW «««««««« 

1310 REM *tt* NOTE ABBREVIATED DESCRIPTION MUST BE IN QUOTES «««* 
1320 REM ***« AND 7 CHARACTERS L0N6 *«*« 
1330 DATA JAN,31,M0N 

1340 DATA JAN, 1, "DOCTOR ", APPOINTMENT FOR PHYSICAL 

1350 DATA JAN, 2, DENTIST, 3 PM APPOINTMENT FOR CLEANING 

1360 DATA JAN,31, "B-DAY ".KENNY'S BIRTHDAY 

1370 DATA JAN, 99, NOTE, VISIT FARM DURING THIS MONTH 

1380 DATA JAN, 9, "CAR REPAIR OF MOTOR 

1390 DATA JAN, 2, "SCHOOL ",PTA MEETING 7 PM 

1400 DATA END,0, , 

1410 CLOSE «1 
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>RUN 



SUN 


MON 


TUE 


JAN 
WED 


— X- 


THU 


FRI 




III 
I DOCTOR I 


2 

DENTIST 
SCHOOL 


I 3 


\ 


4 I 


9 I 


-r 

9 


T B T 
to J 


CAR 


I 10 




1- 

11 I 


1 

12 I 


14 


I 15 I 


16 


I 17 




18 I 


19 I 


21 


I 22 I 


23 


I 24 




25 I 


26 I 


28 


I 29 I 


30 


I 31 









B-DAY 



SHALL I PRINT THE SCHEDULED I TENS < Y OR N >? 
? Y 

JAN 



1 DOCTOR APPOINTMENT FOR PHYSICAL 

2 DENTIST 3 PM APPOINTMENT FOR CLEANINS 
31 B-DAY KENNY'S BIRTHDAY 

9 CAR REPAIR OF MOTOR 

2 SCHOOL PTA MEETING 7 PM 



MAJOR SYMBOL TABLE - REMINDER 



: NAME •* 


DESCRIPTION 


: SO 


POINTER TO DAY OF WEEK 


: D0«( >•« 


DAY OF WEEK 


[ D6$( )•• 


OUTPUT ARRAY 


m •* 


DAY OF WEEK IN 


D 


DAY IN 


Dl« 


DAY OF WEEK IN 


10 


DAY OF MONTH COUNTER 


D7( ) 


OUTPUT ARRAY FOR COUNT 


M3$ •» 


MONTH IN 


D3 «• 


DAY IN 


D4« 


ITEM IN 


D5« 


ITEM DESCRIPTION IN 


FUNCTIONS USED 


NAME • • 


DESCRIPTION : 


GOSUB •* 


BRANCH TO AND RETURN ] 


DIM 


SINGLE DIMENSION ARRAY ] 
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REMINDER CALENDAR - EXTENDED VERSION 

Description 

This program is a useful assistant for the busy individual or family. It 
produces a reminder calendar for as many months in advance as are 
desired. 

Functions of the Program 

This program functions in a similar way to the basic reminder program 
given previously. There are, however, several major enhancements: 

1. This program produces the calendars for the number of months 
specified. 

2. The calendars are prmted either continuously or with page align- 
ment. 

3. The calendars can be either condensed or expanded (to allow for 
"write-ins"). 

4. Month names and the number of days in each month are initialized 
for you. 

Instructions for Use 

Record your schedule items and enter them prior to running the pro- 
gram for the month that they are scheduled in. 

Data Entry 

All data is entered using DATA statements. 
Data Format 

One data form is required. Scheduled items are entered in the following 
form: 

Month, Day, Abbreviated description. Description 
Output Description 

See example provided. The printed results will include individual prints 
for each of the months requested. Page alignment is allowed, if 
requested. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

to CALL CLEAR 

20 REM **««***«*««*«« OPEN STATEMENT FOR PRINTER ««««*««««««««« 

30 REM »»« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT »*« 
40 OPEN #1:"RS232.BA=9600.DA»8" 

50 REM REMINDER SCHEDULE AND CALENDAR - ENHANCED 

60 REM »«*««««««««««««««*« DATA INITIALIZATION ««*«««t«**««*««« 

70 N=0 
80 S0=0 
90 L0=0 
100 Ml=7 
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110 M2=7 

120 M4=l 

130 DIM D6«(7) 

140 DIM D7<7) 

150 DIM DO* (7) 

160 DIM N0(12) 

170 DIM M0»(12) 

180 READ DO«(l),DO«<2),DO«<3),D0«<4),DO«<5),D0«(6),D0«(7) 

190 FOR 1=1 TO 12 

200 READ M0«<I),N0(I) 

210 NEXT I 

220 FOR 1=1 TO 7 

230 D6*(I)=" " 

240 NEXT I 

250 PRINT "ENTER THE FIRST MONTH AND": "YEAR TO BE PRINTED I.E. ,": "JAN, 1980" 
260 INPUT M«,Y1 

270 PRINT "ENTER THE DAY OF THE WEEK": "THAT THE FIRST MONTH STARTS": "ON" 
280 INPUT Dl« 

290 PRINT "ENTER THE NUMBER OF MONTHS": "TO BE PRINTED I.E., 10" 
300 INPUT N 

310 PRINT "SHALL I PRINT THE SCHEDULED" :" ITEMS <Y OR N)?" 
320 INPUT M 

330 PRINT "DO YOU WANT PAGE ALIGNMENT": " <Y OR N)7" 
340 INPUT Al« 

350 PRINT "DO YOU WANT AN EXPANDED" : "CALENDAR <Y OR N)?" 

360 INPUT A2* 

370 IF A1*<>"Y" THEN 400 

380 PRINT "BEFORE THE PRINTING OF EACH": "MONTH A WILL APPEAR" 

390 PRINT "ALIGN TO THE TOP OF PAGE": "BEFORE PRESSING ENTER" 

400 FOR 1=1 TO 12 

410 IF M*<>MO* < I > THEN 430 

420 M4=I 

430 NEXT I 

440 FOR K=l TO 7 

450 IF D1»<>D0*<K)THEN 470 

460 SO=K 

470 NEXT K 

480 REM PROCESSING LOOP ««««««««««««»««i|:t*««« 

490 FOR I2«=M4 TO M4+N-1 
500 N0(2}°28 
510 Y»Y1 

520 IF INT<Y/4)<>Y/4 THEN 540 
530 N0<2)=29 
540 10=0 
550 M3=I2 

560- IF M3<=12 THEN 620 
570 M3«M3-12 
580 Y=Y1+1 

590 IF INT<Y/4)<>Y/4 THEN 610 

600 N0<2)=29 

610 GOTO 560 

620 IF S0=0 THEN 850 

630 GOSUB 890 

640 FOR J=l TO M2 

650 GOSUB 990 

660 FOR K=l TO 7 

670 N1«<K)=" " 

680 NEXT K 

690 IF N0<M3)<I0 THEN 820 

700 GOSUB 1050 

710 FOR L=l TO 10 

720 GOSUB 1420 

730 IF LlOO THEN 780 

740 IF A2*<>"Y" THEN 810 

750 GOSUB 1310 

760 GOSUB 1310 

770 GOTO 810 

780 GOSUB 1310 

790 L0=L0+1 

BOO NEXT L 
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810 NEXT J 

820 REM «»*««***!K««««**«*« PROGRAM TERMINATION POINT t***t****t* 

830 IF A*<>"Y" THEN 850 

840 60SUB 1630 

850 IF S0O8 THEN 870 

860 S0>>1 

870 NEXT 12 

880 STOP 

890 REM »***«*«*«*«**»«««« PRINTS HEADINGS «*««««««««««««*«««*«« 

900 IF A1«<>"Y" THEN 920 
910 INPUT X« 
920 PRINT #1 

930 PRINT «1:TAB<34);M0*<M3);" ";Y 
940 FOR 1=1 TO 7 

950 PRINT #1:" ";DO*(I);" "; 
960 NEXT I 
970 PRINT #1 
980 RETURN 

990 REM tttttttttt******** PRINTS SCHEDULE OUTLINE 
1000 FOR 1=1 TO Ml 

1010 PRINT #1:"I "J 

1020 NEXT I 

1030 PRINT #li"I" 

1040 RETURN 

1050 REM *«t««**«*«««*«««« PRINTS CALENDAR DAY LINE 
1060 FOR 1=1 TO Ml 
1070 IF JOl THEN 1100 
1080 IF lOSO THEN 1100 
1090 10=1 

1100 IF N0<M3>>=I0 THEN 1140 

1110 PRINT #1:"I 

1120 10=10+1 

1130 GOTO 1260 

1140 IF I0>9 THEN 1220 

1150 IF lOOO THEN 1180 

1160 PRINT #1:"I "j 

1170 GOTO 1260 

1180 PRINT #1:"I ";I0;'' 

1190 10=10+1 

1200 S1=I+1 

1210 GOTO 1260 

1220 PRINT #1J"I ";I05" "j 

1230 S1=I+1 

1240 10=10+1 

1250 S0=I+1 

1260 NEXT I 

1270 PRINT #ll"I" 

1280 L0=0 

1290 S0=S1 

1300 RETURN 

1310 REM «»««««««*«««««»«« VERTICAL LINES «i|c*«t««|[«»»«««««*««*««« 

1320 FOR 1=1 TO Ml 

1330 IF D6«(I)=" " THEN 1380 

1340 PRINT #1:"I "jD6$(I)j" "j 

1350 D6$<I)=" " 

1360 D7<I)=0 

1370 GOTO 1390 

1380 PRINT #1:"I 

1390 NEXT I 

1400 PRINT #li"I" 

1410 RETURN 

1420 REM t«*««««««««»*«»»« REVIEWS SHEDULED ITEMS ««*««««***«««*» 

1430 RESTORE 

1440 L1=0 

1450 FOR 1=1 TO 31 

1460 READ X« 

1470 NEXT 1 

1480 FOR 1=1 TO 100 

1490 READ M3«,D3,D4$,D5S 

1500 IF M3*»"END" THEN 1620 
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1510 IF D3>N0<M3)THEN 1610 

1520 IF M3*<>M0*<M3>THEN 1610 

1530 IF D2>=10 THEN 1610 

1540 IF D3<I0-7 THEN 1610 

1550 Il=»D3-I0+8 

1560 D7<I1)=1+D7<I1) 

1570 IF D7<I1)<=L0 THEN 1610 

1580 IF D6«<I1)<>" " THEN 1610 

1590 D6«<I1}«°D4« 

1600 Ll»l 

1610 NEXT I 

1620 RETURN 

1630 REM ***************** DETAILED PRINT OF SCHEDULE ************ 

1640 PRINT ttls 

1650 PRINT #1:M0*<M3) 

1660 RESTORE 

1670 FOR 1=1 TO 31 

1680 READ X$ 

1690 NEXT I 

1700 FOR 1=1 TO 100 

1710 READ M3«,D3,D4*,D5« 

1720 IF M3*="END" THEN 1760 

1730 IF M3$<>M0* <M3)THEN 1750 

1740 PRINT *»lrD3,D4«,D5$ 

1750 NEXT I 

1760 RETURN 

1770 REM ***************** DATA FOR INITIALIZATION ************** 

1780 DATA SUN,MON,TUE,WED,THU,FRI,SAT 

1790 DATA JAN, 31, FEB, 28, MAR, 31, APR, 30, MAY, 31, JUN, 30 

1800 DATA JUL, 31, AUG, 31, SEP, 30, OCT, 31, NOV, 30, DEC, 31 

1810 REM ***************** DATA ENTRIES FOLLOW ****************** 

1820 DATA JAN, 1, "DOCTOR ", APPOINTMENT FOR PHYSICAL 

1830 DATA JAN, 2, "DENTIST", 3 PM APPOINTMENT DOCTOR SMITH 

1840 DATA JAN, 2, "SCHOOL ",PTA MEETINB 7 PM 

1850 DATA FEB,25,"B-DAY KENNY'S BIRTHDAY 

1860 DATA JAN, 99, "NOTE ",NEXT MONTH VISIT FARM 

1870 DATA END, 0,0,0 

1880 CLOSE «1 



>RUN 

ENTER THE FIRST MONTH AND 
YEAR TO BE PRINTED I.E., 
JAN, 1980 
7 JAN 1980 

ENTER THE DAY OF THE WEEK 
THAT THE FIRST MONTH STARTS 
ON 

? TUE 

ENTER THE NUMBER OF MONTHS 
TO BE PRINTED I.E., 10 
? 1 

SHALL I PRINT THE SCHEDULED 
ITEMS (Y OR N)7 
7 Y 

DO YOU WANT PABE ALIGNMENT 
(Y OR N)? 
7 Y 

DO YOU WANT AN EXPANDED 
CALENDAR <Y OR N)7 
7 Y 

BEFORE THE PRINTING OF EACH 
MONTH A '7' WILL APPEAR 
ALIGN TO THE TOP OF PAGE 
BEFORE PRESSING ENTER 
7 
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JAN 1980 

SUN MDN TUE WED THU FRI SAT 







1 1 
DOCTOR 1 


2 I 
DENTIST I 
SCHOOL Z 


3 ] 


4 I 


5 


6 


7 


8 


9 I 


10 


11 I 


12 


13 


14 


15 


16 I 
\ 


17 


18 I 

\ 


19 


20 


: 21 


22 


23 I 


24 


23 I 


26 


i 27 


[ 28 


i 29 


i 30 I 


31 





















1 

2 
2 
99 



DOCTOR APPOINTMENT FOR PHYSICAL 

DENTIST 3 PM APPOINTMENT DOCTOR SMITH 

SCHOOL PTA MEETING 7 PM 

NOTE NEXT MONTH VISIT FARM 



MAJOR SYMBOL TABLE - REMINDER - EXTENDED 

I 

I NAME DESCRIPTION 

I 

IN NUMBER OF MONTHS TO PRINT 

I D0*< >«♦ DAYS OF THE MEEK 

I N0( > * OF DAYS ARRAY 

I M0$< MONTH NAME ARRAY 

I M* FIRST MONTH TO PRINT 

I Yl FIRST YEAR TO PRINT 

I Dlt DAY OF MEEK MONTH STARTS ON 

I A2« INDICATOR FOR EXPANDED CALENDAR 

I D6*< ).. ITEM PRINT ARRAY 

I D7( > .« COUNTER ARRAY 

I 10 DAY OF MONTH 

I M3$ »• MONTH IN 

I D3 *• DAY IN 

I D4« ITEM IN 

I D5$ ITEM DESCRIPTION IN 

I Xf DUMMY VARIABLE FOR RESTORE 

I 

FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I INT CONVERTS NUMBER TO INTEGER 

I GOSUB BRANCHES TO AND RETURNS 

I DIM SINGLE DIMENSION ARRAYS 

I 
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JOB JAR 



Description 

The traditional jar of household tasks that is used to occupy idle 
moments is automated by this program. Odd jobs that we never seem 
to find the time for are placed in ±e computer job jar for future 
reference. Later, when you have free time, the computer will randomly 
choose one to fill ±at idle moment. It's a sure way of taking care of 
annoying household duties. Peeking is not allowed. 

Functions of the Program 

The program randomly selects an item from the data items supplied 
that meets the time availability specified. 

Instructions for Use 

New jobs that are to be added to the jar are entered by means of DATA 
statements. Completed jobs should be deleted from the data list at 
time of accomplishment. 

Data Entry 

All data is entered using DATA statements. 
Data Format 

Tasks are entered using the following format: 

Job name/description, Estimated time to complete 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM HOUSEHOLD CHORE JOB-JAR PROGRAM 

30 REM DATA INITIALIZATION ««««*«««««»«»««« 

40 M0=99 
SO Y«=l 
60 N»0 
70 P=0 

BO PRINT "WOULD YOU LIKE TO REVIEW THE": "JOBS AVAILABLE (Y OR N)?" 
90 INPUT A* 

100 IF A$<>"Y" THEN 170 

110 PRINT 

120 PRINT 

130 S0=1 

140 60SUB 380 

ISO S0=0 

160 N»0 

170 PRINT "DO YOU HAVE A TIME LIMIT"! "<Y OR N)?" 

ISO INPUT M 

190 IF A«»"N" THEN 220 

200 PRINT "ENTER THE MAXIMUM TIME": "AVAILABLE <IN HOURS)" 
210 INPUT MO 

220 REM «»*«««««**«««*«*«« PROCESSING AREA *««««««*««*««««««*««« 

230 GOSUB 380 

240 IF NOO THEN 270 
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250 PRINT "ALL JOBS HAVE A GREATER TIME" I "FACTOR" 
260 GOTO 360 

270 PRINT N;" JOBS ARE AVAILABLE FOR SELECTION" 

2S0 Z>>>INT<(RND«(N/100)-t-.01)«100) 

290 N=0 

300 N1»0 

310 60SUB 380 

320 PRINT "DATA RECORD" ;N1; "HAS BEEN" i "SELECTED" 
330 PRINT 

340 PRINT "DESCRIPTION ">T0«|" - TIME ALLOWED: " j Tl ; " HOURS" 
350 PRINT 

360 REM *«««««*««*«»«««««« TERMINATION POINT ttt<«»««»«««4c*««««« 

370 END 

380 REM *««*«*«»«««««**««« DATA READ AREA 

390 RESTORE 

400 FOR 1=1 TO SOO 

410 READ T0«,T1 

420 IF TO«»"END" THEN 510 

430 Nl-Nl+1 

440 IF SOOl THEN 460 

450 PRINT Nl;". ";T0*,T1;" HOURS" 

460 IF T1>M0 THEN 500 

470 N»N+1 

480 IF P=0 THEN 500 
490 IF N«Z THEN 520 
500 NEXT I 
510 Pol 
520 RETURN 

530 REM »»t*«***«*««»t««*« DATA ENTRY AREA t«««»t**«»««»««««««tt 

540 DATA TASK 1,10 
550 DATA TASK 2,3 
560 DATA TASK 3,88 
570 DATA TASK 4,4 
580 DATA TASK 5,7 
590 DATA TASK 6,19 
600 DATA TASK 7,6 
610 DATA TASK 8,4 
620 DATA END,0 



^SHUld you 

JOBS RVfll 



L I K 
LRBL 



TD 

< Y 



REVIEW THE 
DR N >? 




1 



TRSK 7 

TRSK 8_ , 
YOU HAVE R T 
DR N >? 




E 



HOURS 
HDURS^ 

HOURS 
HOURS 

HOURS 
HOURS 
LIMIT 




to YOU HRVE fl TIME LIMIT 
<Y OR N>? 
? N 




SELECTED 

DESCRIPTION TRSK 5 

- TIME RLLDWEDl 7 HDURS 
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MAJOR SYMBOL TABLE - JOB-JAR 



WHnc. 






Y 




SEED FOR RANDOM NUMBER GENERATOR ] 


P 




COUNTER FOR NUMBER OF PASSES ] 


N 




NUMBER OF JOBS AVAILABLE ] 


MO 




AVAILABLE TIME ] 


Z 




GENERATED RANDOM NUMBER ] 


Nl 




RECORD NUMBER 3 


Tl 




TIME OF JOB IN ] 


TO* 




DESCRIPTION OF JOB IN 1 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


INT 




CONVERTS NUMBER TO INTEGER ] 


RND 


• • 


GENERATES A RANDOM NUMBER ] 


GOSUB 


• • 


BRANCHES TO AND RETURNS ] 
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CHORES 



Description 

The computer becomes the perfect arbitrator of the question, '"Whose 
turn is it to do the dishes?" This program produces a weekly schedule 
of all chores and individuals responsible for each. 

Functions of the Program 

This program accepts a cycle number from the keyboard and schedules 
the next person to perform each chore, a schedule based upon an equal 
sharing by all individuals eligible for the task. Consecutive cycle num- 
bers must be used to insure equitable scheduling. Tasks are entered as 
either the responsibility of one person or the responsibility of all. The 
schedule is produced, and a checklist is provided, for a week at a time. 

Instructions for Use 

Determine the tasks that are required, the days of the week that they 
are to be accomplished on, and the individuals eligible to be scheduled 
for that task. 

Data Entry 

All data is entered by means of DATA statements except for the cur- 
rent cycle number. 

Data Formats 

Two formats are available: 

1. Tasks are identified by the following format: 

Task type, Task name, 
Y or N (for each of the seven days of the week, Sunday first) 
A Y (yes) entry for a day indicates that the task is to be per- 
formed on that day. For example: Y, N, N, Y, N, N, Y indicates 
that the task is to be performed on Sunday, Wednesday, and Satur- 
day. Task types are either or "A." The indicates that the 
task is to be shared by the individuals following the item. The "A" 
indicates that the task is to be performed by all individuals. See 
example. 

2. Following each task record, a list of the individuals is provided in 
the following form: 

N, Name of the individual 

Output Description 

See example provided. The results are printed for one week at a time. 
(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Scheduling Programs for Home Use 115 



10 CALL CLEAR 

20 REM HOUSEHOLD CHORES - BASIC 

30 REM »««««««*«)k]K«* OPEN STATEMENT FOR PRINTER «***«**««**«*«« 
40 REM *«« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT ««* 
50 OPEN #li "RS232.BA°9600.DA«8" 
60 REM PRINT #1j">RUN" 

70 REM «««««««««««««««»«»« DATA INITIALIZATION ««««««««*««*«*«« 

80 Ml=»7 

90 DIM N«<10) 

100 DIM D0$(7) 

110 DO«<l)<a"SUN" 

120 D0«(2)nr"M0N" 

130 D0*<3)=»"TUE" 

140 D0*(4)="WED" 

ISO D0*<5)=»"THU" 

160 DO* (6>="FRI" 

170 D0«<7)="SAT" 

180 X«=" " 

190 PRINT "SPACE TO TOP OF PAGE" 

200 INPUT Q« 

210 PRINT "ENTER CURRENT CYCLE NUMBER" 
220 INPUT Y 
230 Y«=Y-1 

240 IF Y<0 THEN 210 
250 PRINT #1 

260 REM »««««««««««*«««««« PROCESSING LOOP «««««*««««««««««««(«« 

270 BOSUB 550 

280 GQSUB 620 

290 BOSUB 690 

300 FOR 1=1 TO 25 

310 IF T*="END" THEN 530 

320 Tlt=T« 

330 READ C«,Dt<l),D«<2),D«<3),D*<4),D«<5),D*(6),D«<7) 

340 BOSUB 690 

350 PRINT #1 

360 PRINT ttl:C*; 

370 IF T1*<>"A" THEN 410 

3B0 8«1 

390 N»K1 

400 BOTO 430 

410 N«»Y-K1»INT<Y/K1)+1 

420 S»N 

430 FOR J=S TO N 

440 FOR L«l TO 7 

450 IF D«<L)<>"Y" THEN 470 

460 PRINT #1jTAB<L»9)|" <)"iN*<J)i 

470 NEXT L 

480 PRINT #1 

490 NEXT J 

500 PRINT #1 

510 BOSUB 620 

520 NEXT I 

530 REM »«««««««»«»««««««« PROGRAM TERMINATION POINT 
540 STOP 

550 REM ««*«*««t««**«*»«*« PRINTS HEADINGS ««*«««««««««*«««««««« 

560 PRINT #1:X«; 

570 FOR X=l TO 7 

580 PRINT #1:" ";D0*<X)|" "i 

590 NEXT X 

600 PRINT #1 

610 RETURN 

620 REM «««««««««»«««»«««« PRINTS SCHEDULE OUTLINE ««««««««««««« 
630 PRINT #l:X«j 
640 FOR X=l TO Ml 

650 PRINT #1»"I "I 

660 NEXT X 

670 PRINT #li"I" 

680 RETURN 

690 REM ««««*««*«*««««««(» DATA READ PROCEDURES «*«*««««t««»««*« 

700 FOR K«l TO 25 
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710 READ T« 

720 IF T$<>»N" THEN 750 
730 READ N$(K> 
740 NEXT K 
750 K1=K-1 
760 RETURN 

770 REM ««*««««««*«***«««« DATA ENTRIES FOLLOW ««>»«««*«»«t*t<t« 

780 DATA *, CHORE 1 , Y, Y, Y, Y, Y, Y, Y 
790 DATA N,JIM 
800 DATA N, CHUCK 
810 DATA N,MARY 

820 DATA *, CHORE 2, Y,N, Y,N, Y,N,Y 
830 DATA N,JUDY 
840 DATA N,MARY 

850 DATA A, CHORE 3, Y, Y, Y, Y, Y, Y, Y 
860 DATA N,MARY 
870 DATA N,JUDY 
880 DATA N,JIM 
890 DATA N, CHUCK 

900 DATA », CHORE 4,N,N,N,N,N,N, Y 

910 DATA N,JUDY 

920 DATA N,MARY 

930 DATA N,JIM 

940 DATA N, CHUCK 

950 DATA END 



>RUN 

SPACE TO TOP OF PAGE 
? 

ENTER CURRENT CYCLE NUMBER 
7 4 

SUN MON TUE WED THU FRI SAT 
I 1 1 1 1 1 1 1 

CHORE 1 OJIM OJIM OJIM OJIM OJIM OJIM OJIM 

I 1 1 1 1 1 1 1 

CHORE 2 OMARY OMARY OMARY OMARY 

I 1 1 1 1 1 1 1 

CHORE 3 OMARY OMARY OMARY OMARY OMARY OMARY OMARY 

OJUDY OJUDY OJUDY OJUDY OJUDY OJUDY OJUDY 

OJIM OJIM OJIM OJIM OJIM OJIM OJIM 

O CHUCK O CHUCK O CHUCK O CHUCK O CHUCK O CHUCK O CHUCK 

I 1 1 1 1 1 1 1 

CHORE 4 O CHUCK 

I 1 1 1 1 1 1 1 



MAJOR SYMBOL TABLE - CHORES 



NAME 


• • 


DESCRIPTION 


Di< 


> 


ARRAY OF TASK INDICATORS 


Ht(. 


> 


NAME ARRAY 


D0$< 




DAY OF WEEK ARRAY 


Y 


« • 


CYCLE NUMBER 


T« 


• • 


TASK CODE 


Tit 


• • 


TASK CODE 




• • 


TASK NAME 
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FUNCTIONS USED 



NAME 


• * 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINES 


INT 


• • 


CONVERTS NUMBER TO INTEGER 


GOSUB 


• • 


BRANCHES TO AND RETURNS 


DIH 


• • 


SINGLE DIMENSION ARRAYS 
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LAWN/PLANT CARE 



Description 

This gardener's assistant identifies and prints the scheduled daily and 
monthly gardening tasks for the specified times requested. 

Functions of the Program 

The program produces outputs of monthly calendars beginning with the 
specified month and continuing for the number of months requested. 
The major processing loop calls various subroutines to perform the for- 
matted printing of the calendar. Note that the data is supplied m two 
sections. The first section identifies tasks that are scheduled for specific 
dates, and the second supplies tasks that are scheduled for the month 
only. 

Instructions for Use 

Enter scheduled items as data prior to running the program. 
Data Entry 

Data is entered by means of DATA statements. 
Data Formats 

1. Tasks that are scheduled for a specific date are entered as: 

Month, Date, Abbreviated description, Extended description 

2. Tasks that are identified for the month only are entered as: 

Month, Task description 

Output Description 
See example provided. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 



10 CALL CLEAR 

20 REM LAWN/CARE SCHEDULE PROGRAM 

30 REM ***««**««*««*«««» OPEN STATEMENT FOR PRINTER ttttttttttt 

40 REM ttt CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT t«> 
50 OPEN #ls "RS232.BA=9600.DA=8" 

60 REM ««««««««»««*«««*»«« DATA INITIALIZATION ««««*t*t««*««»t« 

70 NaO 

80 S0=0 

90 L0=0 

100 Ml=7 

110 M2»7 

120 M4»l 

130 DIM D0«(7> 

140 DIM N0(12) 

150 DIM M0«(12) 

160 DIM D6«<7) 

170 DIM D7<7) 

180 READ D0«(1),D0«(2>,D0«(3),D0«(4>,D0«(5),D0«(6),D0«<7> 
190 FOR 1-1 TO 12 
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200 READ MO*(I),NO<I) 
210 NEXT I 
220 FOR 1=1 TO 7 
230 D6*(I)'=" " 
240 NEXT I 

250 PRINT "ENTER THE FIRST MONTH AND": "YEAR TO BE PRINTED I.E. , "s "JAN, 1980 
260 INPUT M$,Y1 

270 PRINT "ENTER THE DAY OF THE WEEK "t "THAT THE FIRST MONTH STARTS" « "ON" 
280 INPUT Dl« 

290 PRINT "ENTER THE NUMBER OF MONTHS": "TO BE PRINTED I.E., 10" 
300 INPUT N 

310 PRINT "DO YOU WANT PAGE ALIGNMENT <Y OR N>7" 

320 INPUT Al* 

330 IF A1*<>"Y" THEN 360 

340 PRINT "BEFORE THE PRINTING OF EACH": "MONTH A '7' WILL APPEAR" 

350 PRINT "ALIGN TO THE TOP OF PAGE" : "BEFORE PRESSING ENTER" 

360 FOR 1=1 TO 12 

370 IF M«<>M0« < I ) THEN 390 

380 M4=I 

390 NEXT I 

400 FOR K=l TO 7 

410 IF D1$<>D0*(K)THEN 430 

420 SO=K 

430 NEXT K 

440 REM ****************** PROCESSING LOOP ««*««««»«««*««*««»««« 

450 FOR I2=M4 TO M4+N-1 
460 NO < 2) =28 
470 Y=Y1 

480 IF INT<Y/4><>Y/4 THEN 500 
490 NO (2) =29 
500 10=0 
SIO M3=I2 

520 IF M3<=12 THEN 580 
530 M3=M3-12 
540 Y=Y1+1 

550 IF INT<Y/4)<>Y/4 THEN 570 

560 NO (2) =29 

570 GOTO 520 

580 IF S0=0 THEN 790 

590 GOSUB 830 

600 FOR J=l TO M2 

610 GOSUB 930 

620 FOR K=l TO 7 

630 N1«<K)=" " 

640 NEXT K 

650 IF N0<M3)<I0 THEN 770 

660 GOSUB 990 

670 FOR L=l TO 10 

680 GOSUB 1360 

690 IF LlOO THEN 730 

700 GOSUB 1250 

710 GOSUB 1250 

720 GOTO 760 

730 GOSUB 1250 

740 L0=L0+1 

750 NEXT L 

760 NEXT J 

770 REM ****************** PROGRAM TERMINATION POINT *********** 

780 GOSUB 1580 

790 IF S0O8 THEN 810 

800 S0=1 

810 NEXT 12 

820 STOP 

830 REM i|t«)|c«)K)|:*«!|c«!K)|(««)|c«*«PRINTS HEADINGS ********************** 

840 IF A1«<>"Y" THEN 860 
850 INPUT X* 

860 PRINT #1:TAB(26);M0*<M3);" ";Y 
870 PRINT #1: 
880 FOR 1=1 TO 7 

890 PRINT #1:" ";D0*(I);" "; 
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900 NEXT I 
910 PRINT #1: 
920 RETURN 

930 REM t***********$*$**t PRINTS SCHEDULE OUTLINE t«*«««««»«*«« 

940 FOR 1=1 TO Ml 

950 PRINT #1:"I "j 

960 NEXT I 

970 PRINT #1:"I" 

980 RETURN 

990 REM t*****1tit.*t******** PRINTS CALENDAR DAY LINE $*t*t******tt 

1000 FOR 1=1 TO Ml 
1010 IF JOl THEN 1040 
1020 IF lOSO THEN 1040 
1030 10=1 

1040 IF N0<M3)>=I0 THEN 1080 
1050 PRINT #l2"I 
1060 10=10+1 
1070 GOTO 1200 
1080 IF I0>9 THEN 1160 
1090 IF lOOO THEN 1120 
1100 PRINT #1: "I "J 
1110 GOTO 1200 

1120 PRINT #1:"I ";I0;" "; 

1130 10=10+1 

1140 S1=I+1 

11 So GOTO 1200 

1160 PRINT #1J"I "ilOi" "! 

1170 S1=I+1 

1180 10=10+1 

1190 S0=I+1 

1200 NEXT I 

1210 PRINT «li"I" 

1220 L0=0 

1230 S0=S1 

1240 RETURN 

1250 REM »«»*«««1K««*«««««« VERTICAL LINES «««««««*«««*««*«««««»t« 

1260 FOR 1=1 TO Ml 

1270 IF D6$<I)=" " THEN 1320 

1280 PRINT #1:"I ";D6«<I);" "; 

1290 D6«<I)=" " 

1300 D7(I)=0 

1310 GOTO 1330 

1320 PRINT #1:"I "; 

1330 NEXT I 

1340, PRINT ttl:"I" 

1350 RETURN 

1360 REM *«««««««««««««««« REVIEWS SCHEDULE ITEMS »««|:*««*««««««« 

1370 RESTORE 

1380 L1=0 

1390 FOR 1=1 TO 31 

1400 READ X$ 

1410 NEXT I 

1420 FOR 1=1 TO 100 

1430 READ M3« 

1440 IF M3«="END" THEN 1S70 

1450 READ D3,D4$,D5* 

1460 IF D3>N0(M3)THEN 1560 

1470 IF M3$<>M0*(M3)THEN 1560 

1480 IF D3>=10 THEN 1560 

1490 IF D3<I0-7 THEN 1560 

1500 Il=D3-I0+8 

1510 D7(I1)=1+D7<I1> 

1520 IF D7<I1)<=L0 THEN 1560 

1530 IF D6«(I1><>" " THEN 1560 

1540 D6«(I1)=D4$ 

1550 Ll=l 

1560 NEXT I 

1570 RETURN 

1580 REM ***«*««]|(««*«»«««« DETAILED PRINT OF SCHEDULE ««*»««»«*«« 

1590 PRINT #1: 
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1600 PRINT «liM0*<M3) 

1610 RESTORE 

1620 FOR 1=1 TO 31 

1630 READ X« 

1640 NEXT I 

1650 FOR 1=1 TO 100 

1660 READ M3« 

1670 IF M3«="END" THEN 1720 

1680 READ D3,D4«,D5« 

1690 IF M3*<>M0*(M3)THEN 1710 

1700 PRINT ttl:D3,D4«,D5« 

1710 NEXT I 

1720 PRINT «ls 

1730 PRINT «1:" MONTH'S TASKS *• 

1740 FOR 1=1 TO 100 
1750 READ M3« 

1760 IF M3*«="END" THEN IB 10 
1770 READ D5« 

1780 IF M3*<>M0*(M3)THEN 1800 
1790 PRINT «1:D5« 
1800 NEXT I 
1810 RETURN 

1820 REM ««*««**«««««««««« DATA FOR INITIALIZATION 

1830 DATA SUN,MON,TUE,WED,THU,FRI,SAT 

1840 DATA JAN, 31, FEB, 28, MAR, 31, APR, 30, MAY, 31, JUN, 30 

1850 DATA JUL, 31, AUS, 31, SEP, 30, OCT, 31, NOV, 30, DEC, 31 

1860 REM ti*ttt**t****t***t DATA ENTREIS FOLLOW «««««4t*««««««««t«« 

1870 DATA APR, 15, "GARDEN ", PREPARE FOR PLANTING 

1880 DATA APR, 20, "SELECT ", CHOOSE SEEDS TO PLANT 

1890 DATA APR, 25," PLANT ",PLANT CARROTS 

1900 DATA APR, 30, " PLANT ", PLANT ONIONS 

1910 DATA MAY, 15, " PLANT ", PLANT TOMATO PLANTS 

1920 DATA END 

1930 REM ««*«««««**««««««« MONTH'S TASKS FOLLOW «**««**««««***««« 

1940 DATA APR, SEED LAWN 
1950 DATA MAY, FERTILIZE YARD 
1960 DATA APR, ROLL LAWN 
1970 DATA END 
1980 CLOSE ttl 



>RUN 

ENTER THE FIRST MONTH AND 
YEAR TO BE PRINTED I.E., 
JAN, 1980 
? APR, 1983 

ENTER THE DAY OF THE WEEK 
THAT THE FIRST MONTH STARTS 
ON 

? FRI 

ENTER THE NUMBER OF MONTHS 
TO BE PRINTED I.E., 10 
? 1 

DO YOU WANT PABE ALIGNMENT 
<Y OR N>? 
? N 
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APR 1983 



SUN 


MON 


TUE 


WED 


THU 


FRI 


SAT 












1 


2 I 


I 3 


4 


5 


6 


i 7 


8 


9 I 


I 10 


11 


12 


13 


14 


15 ] 
[ GARDEN ] 


16 I 


I 17 


18 


19 


20 
[ SELECT 


21 


22 


23 I 


I 24 


[ 25 ] 
t PLANT ] 


26 


27 


i 28 


29 


30 I 
[ PLANT I 

















APR 

15 GARDEN 

20 SELECT 

25 PLANT 

30 PLANT 



PREPARE FOR PLANTING 
CHOOSE SEEDS TO PLANT 
PLANT CARROTS 
PLANT ONIONS 



MONTH'S TASKS 
SEED LAWN 
ROLL LAWN 



MAJOR SYMBOL TABLE - LAMN/PLANT CARE 



NAME 


• • 


DESCRIPTION 


D0«( 




DAYS OF WEEK 


N0( > 


• • 


NUMBER OF DAYS IN MONTH 


M0$( 


>•• 


NAMES OF MONTHS 


D6$( 


).. 


TASK PRINT ARRAY 


D7( ) 


• • 


COUNT ARRAY 


M$ 


• • 


FIRST MONTH TO PRINT 


Yl 


• • 


FIRST YEAR TO PRINT 


Dl« 


• • 


STARTING DAY OF WEEK 


N 


• • 


NUMBER OF MONTHS 


10 


• * 


DAY OF THE MONTH 


M3« 


• • 


MONTH IN 


D3 


• • 


DAY IN 


D4$ 


• • 


TASK ITEM IN 




• • 


TASK DESCRIPTION IN 



FUNCTIONS USED 



NAME 


DESCRIPTION 


INT 


CONVERTS NUMBERS TO INTEGER 


GOSUB 


BRANCHES TO AND RETURNS 


DIM 


SINGLE DIMENSION ARRAYS 
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5 



usiPrograinsliirGierir Purpose 

Christmas Cards 
Addresses— Version 1 
Addresses— Version 2 
Addresses— Version 3 
Record Lists 
Record Search 
Reference Filing 
Music Collections 
Coin Collections 
Coin Investments 
Beer Can Collection 
Book Collections 
Service Calls 
Recording Tapes 
Club Lists 
Table of Contents 
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CHRISTMAS CARDS 



Description 

This program records addresses for Christmas cards and letters and 
identifies those that have been sent or received. 

Functions of the Program 

The program reads names, addresses, and sent/received indicators and 
then prints a formatted listing for use in addressing and mailing your 
Christmas cards. 

Instructions for Use 

Enter your Christmas card list prior to running the program. Maintain 
the data entries for use in determining next year's mailing requirements, 
adding and deleting from the list as necessary. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The data is formatted as follows: 

Name, Street address, City, State, Zip, Sent, Received 

Output Description 
See example provided. 

Comments 

You may not wish to use the sent/received portion of the program. This 
function can be eliminated easily from the program (check lines 140, 
150, and 220-260). 



10 CALL CLEAR 

20 REM CHRISTMAS CARD LIST PROGRAM BASIC 

30 REM ««««**$«»««*««**«««* DATA INITIALIZATION AREA 

40 M»1000 

50 S°l 

60 PRINT 

70 REM ««««««««»«««««««««* PROCESSING AREA »«««»*««»«»«««t»««»« 

80 PRINT 

90 PRINT " SENT RCVD" 
100 FOR 1=1 TO M 
110 Al«=" " 
120 A2»=" " 
130 READ N« 

140 IF Nto"Y" THEN 220 

150 IF N«="N" THEN 230 

160 IF SOI THEN 165 ELSE 170 

165 GOSUB 300 

170 IF N*»"END" THEN 380 

180 S°0 

190 Nlt«N» 

200 READ 81«,82«,S3«,Z« 
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210 GOTO 280 
220 A1«°N« 
230 READ N» 
240 SaO 

230 IF N^O"^ THEN 270 
260 A2«°N« 
270 GOTO 130 
280 NEXT Z 

290 REM *«*««««««*««»«»»««« PRINT ROUTINE «»»««««»»»»««<«»»««««« 

300 PRINT ("|A1«|") (••iA2»|'')"|TAB(10)|Nl»|" " 

310 PRINT TAB <9) I 81* 

320 PRINT TAB(4)|82»|'' "iSSti** "|Zf 

330 PRINT 

340 K=K-fl 

350 8°1 

360 RETURN 

370 REM ««»»»<«««««»»««««» PROGRAM TERMINATION POINT t««««»«tt«t 

380 PRINT 
390 PRINT 
400 PRINT 

410 PRINT "NUMBER OF ENTRIES- "iK 
420 PRINT 
430 STOP 

440 REM ««»««««»»«««««»«»« DATA ENTRIES FOLLOW «»«««#»«>»*««««»« 

430 DATA JIM ANY NAME, 111 ANY STREET, ANOTHER TOWN, STATE, 11111 
460 DATA YpN 

470 DATA JUDY DOE, 234 MAIN STREET, HOME TOWN, USA, 02341 
480 DATA N,N 

490 DATA TOM AND JERRY FORREST, 44 WILLOW LANE, LUMBERTOWN, ALASKA, 09B76 
500 DATA N,Y 
510 DATA END 

>RUN 

SENT RCVD 

RNDTHErSBM iTflTi^lllll 

< > < >^JyDY DOE 

8g^..Mf!IN STREET 
HOME TDUN UsR 02341 

TfiM^fifiiS^ JERRY FORREST 

LUMBERTOUN RCFisRR^09876 
NUMBER OF ENTRIES- 3 



MAJOR SYMBOL TABLE - CHRISTMAS CARDS 



: NAME 


• * 


DESCRIPTION 


[ M 


• • 


MAXIMUM NUMBER OF DATA READS 


I Nf 


• • 


NAME/SENT-RCVD INDICATOR 


' Nl« 


• * 


NAME 


Sl« 




STREET ADDRESS 


S2« 


• • 


CITY ADDRESS 


S3f 


• * 


STATE ADDRESS 


2t 


• • 


ZIP CODE 


Al« 


• • 


CARD SENT INDICATOR FOR PRINTING 


A2» 


• • 


CARD RCVD INDICATOR FOR PRINTING . 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION : 


TAB 


« • 


FORMATS PRINT LINES ] 
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ADDRESSES - VERSION 1 



Description 

This program produces address listings witiiout all of tiie frills for you. 
It is tiie simplest version of the three programs provided in this book. 

Functions of the Program 

Addresses are read from DATA statements and are printed in a simple 
mailing label form. 

Instructions for Use 

Enter the addresses in the form shown prior to running the program. 
Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

The first record of the data contains the number of lines for spacing 
purposes. Its form is: 

Number of lines 
The remaining records are of the form: 

Number of lines in address, Line 1, Line 2, etc. . . . 

Output Description 

See example provided. Output is m mailing label format. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

Comments 

Instructions are contained in the program. 



5 REM OPEN YOUR PRINTER AT THIS POINT. IE > 5 OPEN #li "RS232.BA»9&00.DA=8" 

6 REM FOR YOUR PRINT STATEMENTS ADD FILE NUMBER TO PRINT STATEMENT. IE> 100 PRI 
NT #1:"XXXXX" 

10 CALL CLEAR 
20 N=35000 

30 PRINT -WOULD YQU LIKE TO SEE" i "INSTRUCTIONS ( Y OR N)"| 

40 INPUT B* 

50 IF B«="N" THEN 130 

60 PRINT "THIS PRDBRAM PRODUCES" I "LISTINSS OF NAMES" 

70 PRINT "AND ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER" 

80 PRINT "THE DATA ENTER THE NAMES AND" I "ADDRESSES BEGINNING IN LINE"t "ivttJMBER 10 
00. FOR EVERY NAME" 

90 PRINT "ENTER THE NUMBER OF LINES OF" I "INFORMATION THAT IT WILL" I "INCLUDE. AT 
LINE NUMBER 999" 

100 PRINT "ENTER THE # OF LINES FOR" I "PAPER MOVEMENT. END YOUR" i "DATA ENTRIES WI 
TH A DATA"i"0 CARD." 
110 REM 
120 REM 

130 REM «»««««»«»»«««««**« ENTRY OF NUMBER TO PRINT «t«»»«*««««« 

140 READ N2 

ISO PRINT "POSITION PAPER NOW" 



List Programs for Every Purpose 127 



160 INPUT 6$ 

170 FOR 1=1 TO N 

180 READ Nl 

190 IF N1=0 THEN 300 

200 FOR Jol TO Nl 

210 READ 6« 

220 PRINT B» 

230 NEXT J 

240 IF N1>«N2 THEN 280 
250 FOR K=N1+1 TO N2 
260 PRINT 
270 NEXT K 
280 NEXT I 

290 REM *»»»«»»««*«*tt«»«»» PROGRAM TERMINATION POINT «»»*«**«»» 
300 PRINT I-l; "RECORDS WERE PRINTED" 
310 STOP 

320 REM «*«««»»««»**»««««*««»«»»»»«««««««»«««»»»«»««««««»«««««« 

330 REM 

340 REM EXAMPLE DATA FORMATION FOLLOWS 
350 REM 

360 REM «««««»««»«««*««««««»«»»«»«««»»»»««»«»«««««*««»»««««««««« 

370 REM LINE 999 CONTAINS # OF LINES FOR PAGE MOVEMENT 

380 REM LINES 1000 AND 1004 CONTAIN THE tt OF LINE 8 IN THE ADDRESS 

999 DATA 6 

1000 DATA 3 

1001 DATA "JOHN DOE" 

1002 DATA "55 SMOKEY DRIVE" 

1003 DATA "BROTON, MASS 02329" 

1004 DATA 4 

1005 DATA "J. J. MCQEE" 

1006 DATA "APT# 22" 

1007 DATA "409 WILLOW ST." 

1008 DATA "LINCOLN, MA. 09876" 

1009 DATA 



2 RECORDS WERE PRINTED 



MAJOR SYMBOL TABLE - ADDRESSES - VERSION 1 

I 

Z NAME •* DESCRIPTION 

I 

IN MAXIMUM NUMBER OF DATA READS 

I N2 NUMBER OF LINES FOR PAPER MOVEMENT 

16$ TEXT INFORMATION IN 

I Nl NUMBER OF LINES IN THE ADDRESS 

I 
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>RU 





J. J. MC6EE 
flPTft 22 

409 WILLOW ST. 
LINCOLN* Mfi. 09876 



ADDRESSES - VERSION 2 



Description 

This version of the addressing program allows the selected printing of 
the records in groups. 

Functions of the Program 

The program prints the record numbers (inclusive) requested during the 
question/answer sequence. The records preceding the specified start 
point are ignored, and the program terminates after it has completed 
the printing of the last record requested. 

Instructions for Use 

Enter the addresses as data prior to running the program. 
Data Entry 

All data is entered as DATA statements. 



Data Formats 

The first data record is the number of lines for spacing purposes. Its 
form is: 

Number of lines for each record print 
The remaining records in the data are of the following form: 
Number of lines in address, Line 1, Line 2, etc. . . . 
Note the card to identify the end of the data. 

Output Description 
See example provided. 

Comments 

Instructions are provided in the program. 



10 CALL CLEAR 

20 REM NAME LIST 2 PROGRAM 
30 N»3S00 

40 PRINT "WDULD YOU LIKE TO SEE" I "INSTRUCT IC3NS < Y OR N)"| 

SO INPUT Qt 

60 IF B»"''N" THEN ISO 

70 PRINT "THIS PROGRAM PRODUCES"! "ALPHABETIC LISTINGS OF NAMES" 

80 PRINT "AND ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER" 

90 PRINT "THE DATA ENTER THE NAMES AND" i "ADDRESSES BEGINNING IN LINE"l "l^ftJMBER 97 
0. FOR EVERY NAME" 

100 PRINT "ENTER THE NUMBER OF LINES OF" i "INFORMATION THAT IT WILL" i "INCLUDE. AT 
LINE NUMBER S60" 

110 PRINT "ENTER THE • OF LINES FOR" I "PAPER MOVEMENT. END YOUR" i "DATA ENTRIES UI 
TH A DATA"i"0 CARD." 
120 REM 

130 REM OPEN YOUR PRINTER ENTERING A LI^E LIKE THIS AT LINE S. > 3 OPEN #ll"RS2 
32. BA'9600. DA™8" 

140 REM ADD A FILE NUMBER TO YOUR PRINT STATEMENTS LIKE > 100 PRINT «ll"XXXX" 
ISO REM «<«*«*«»»«»««»*««* ENTRY OF NUMBER TO PRINT tt«*«t«»«««« 
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160 READ N2 

170 PRINT "RECORDS ARE TO BE PRINTED" J N2| " LINES EACH DO YOU WANT" 

180 PRINT "TO PRINT ALL OF THE RECORDS" 

190 INPUT e« 

200 IF Q»o"Y" THEN 320 

210 PRINT "ENTER STARTINQ AND ENDING"! "RECORD NUMBERS <XE 4,55)" 
220 INPUT N0,N3 
230 N=N3-N0+1 

240 REM SKIP APPROPRIATE tt OF RECORDS 

250 IF N0<=1 THEN 320 

260 FOR 1=1 TO NO-1 

270 READ Nl 

280 FOR J«l TO Nl 

290 READ G» 

300 NEXT J 

310 NEXT Z 

320 PRINT "POSITION PAPER NOW" 
330 INPUT G» 

340 REM OUT PUT OF RECORDS 

3S0 FOR 1"1 TO N 

360 READ Nl 

370 IF N1»0 THEN 480 

380 FOR jBl TO Nl 

390 READ G» 

400 PRINT G« 

410 NEXT J 

420 IF N1>bN2 THEN 460 
430 FOR K-Nl+l TO N2 
440 PRINT 
4S0 NEXT K 
460 NEXT I 

470 REM »»«««««««*«««««»««« PROGRAM TERMINATION POINT «»««»*«««« 
480 PRINT I-l I "RECORDS WERE PRINTED" 
490 STOP 

500 REM »«»*«»»%»«»«»*»«««««««««*«»«**»«*«««»«»««»»tt««««t««»«»»« 

510 REM 

520 REM EXAMPLE DATA FORMATION FOLLOWS 
530 REM 

540 REM *f»»»«»*«tt«tt<«»«t*t«t»«»t»«t«««««»«««*»li«««««»««««M»t 

550 REM LINE 560 CONTAINS • OF LINES FOR PA1£ MOVEMENT 

560 REM LINES 570 AND 610 CONTAIN T^C • OF LINE 8 IN "WE ADDRESS 

570 DATA 6 

560 DATA 3 

590 DATA "JOHN DOE" 

600 DATA "55 SMOKEY DRIVE" 

610 DATA "6R0T0N, MASS 02329" 

620 DATA 4 

630 DATA "J. J. MC6EE" 

640 DATA "APT# 22" 

650 DATA "409 WILLOW ST." 

660 DATA "LINCOLN, MA. 09876** 

670 DATA 1,"REC0RD3" 

680 DATA 1,"REC0RD4" 

690 DATA 1, "RECORDS" 

700 DATA 

RUN 



yDyLD..Yny_L|KE TO_SEE 
□RDS RRE ~ 

2 N 



INSTRUCTIONS < Y OR N>7 

RECORDS RRE TO BE PRINTI 

A I TMPe c o r? u Tin vnif 

TO. .PI 



ENTER STRRTIN6 RND ENDING 

RECORD NUMBERS <IE 4»55> 

POsiTIdN PRPER NDU) 
? 



^PT^'2S'^'^^^ 
409 WILLOW ST. 
LINCOLN. MR. 69876 
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RECORDS 
RECaRD4 
3 RECORDS WERE PRINTED 
MAJOR SYMBOL TABLE - ADDRESSES - VERSION 2 



NAME 


• • 


DESCRIPTION J 


N 


• • 


MAXIMUM NUMBER OF DATA READS : 


Nl 


• • 


NUMBER OF LINES FOR THE ADDRESS 


N2 


• • 


NUMBER OF LINES FOR PAPER MOVEMENT 


NO 


* • 


STARTING RECORD NUMBER 


N3 


• • 


ENDING RECORD NUMBER TO PRINT 




• • 


ADDRESS LINE IN 
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ADDRESSES - VERSION 3 



Description 

This version allows individualized print formats and provides test print 
patterns for verification and alignment. 

Functions of the Program 

The program determines, through the question and answer sequence, 
the format of the printed output. Test prmts are then provided for 
verification and alignment. 

Instructions for Use 

Address items are entered as data prior to nmning the program. 
Data Entry 

All data is entered as DATA statements. 

Data Format 

The single format used is: 

Number of lines in address, Line 1, Line 2, etc. . . . 

Output Description 

See example provided. Output format is uniquely specified by your 
selections, however. 



10 CALL CLEAR 

20 REM NAME LIST 3 PROGRAM 
30 N3=3500 

40 PRINT "WOULD YOU LIKE TO SEE" i "INSTRUCTIONS < Y OR N)"| 

50 INPUT B* 

60 IF e*»"N" THEN 160 

70 PRINT "THIS PROGRAM PRODUCES"! "ALPHABETIC LISTINGS OF NAMES" 

80 PRINT "AND ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER" 

90 PRINT "THE DATA ENTER THE NAMES AND" : "ADDRESSES BEGINNING IN LINE"t"NUM 
BER 1160. FOR EVERY NAME" 

100 PRINT "ENTER THE NUMBER OF LINES OF" :" INFORMATION THAT IT WILL" s "INCLUDE. " 
110 PRINT "END YOUR DATA ENTRIES WITH"s"A DATA CARD." 
120 REM 

130 REM OPEN YOUR PRINTER ENTERING A LINE LIKE THIS AT LINE 5. > S OPEN «li 
"RS232. BA=9600. DA"8" 

140 REM ««*««««««««««««««« ENTRY OF NUMBER TO PRINT ««««t*«[»«*«« 

150 PRINT 

160 PRINT "DO YOU WANT TO PRINT ALL": "OF THE RECORDS" 

170 INPUT Q$ 

ISO IF 6*="Y" THEN 290 

190 PRINT "ENTER STARTING AND ENDING" i "RECORD NUMBERS <IE 4,55)" 
200 INPUT N0,N3 

210 REM ««««**«««)|[«**«« SKIP OF UNUSED RECORDS 

220 IF N0=<1 THEN 290 

230 FOR 1=1 TO NO-1 

240 READ Nl 

250 FOR J»l TO Nl 

260 READ G« 

270 NEXT J 

280 NEXT I 



132 Tl BASIC Computer Programs for the Home 



290 REM «««««««««**««««« CALL TO ALIGNMENT ROUTINE ««»*««««*««««« 

300 GOSUB 550 
310 REM 

320 REM *«*«««t««««*«« OUTPUT OF GOOD RECORDS «t*t*«t««»«*«««««« 

330 N=«(N3+l-N0)/C 

340 FOR 1=1 TO N 

350 FOR K=l TO C 

360 READ Nl 

370 IF N1"0 THEN 430 

380 R0=R0+1 

390 FOR J=l TO Nl 

400 READ A$(J,K) 

410 NEXT J 

420 NEXT K 

430 J=0 

440 J=J+1 

450 FOR K»l TO C 

460 PRINT TAB<T)»A«<J,K); 

470 A*(J,K)"" " 

480 NEXT K 

490 PRINT 

500 IF J<N2 THEN 440 
310 IF N1«0 THEN 530 
520 NEXT I 

530 PRINT ROi" RECORDS WERE PRINTED" 
540 STOP 

550 REM »»««*««t*««*tt*« PRINT ALIGNMENT ROUTINE »*«tt*«»*«««««« 

560 PRINT "ENTER THE NUMBER OF VERTICAL" i "LINES PER ADDRESS" 
570 INPUT N2 

580 PRINT "ENTER THE NUMBER OF" I "ADDRESSES PER LINE" 

590 INPUT C 

600 REM 

610 DIM X«(12) 

620 PRINT "ENTER THE TAB POSITIONS OF": "EACH COLUMN" 
630 FOR I»l TO C 
640 INPUT TAXd) 
650 T=TAX(I) 
660 NEXT I 

670 xe<i)""iiiiiiiii 11111111111111 nil" 

680 X$ (2) ="222222222222222222222222222" 
690 X* <3) ="333333333333333333333333333" 
700 X« (4> ="444444444444444444444444444" 
710 X« (5) ="555555555555555555555555555" 
720 X% (6) ="666666666666666666666666666" 
730 X«(7)="*«««»««««**««»«**«*»«««**«*" 
740 PRINT "POSITION PAPER NOW" 
750 I0=N2 
760 INPUT 6« 
770 C1=0 

780 FOR M=l TO 2 

790 FOR 1=1 TO 10 

800 FOR J=l TO C 

810 PRINT TAB(T);X«<I); 

820 NEXT J 

830 PRINT 

840 NEXT I 

850 NEXT M 

860 PRINT "ARE THE NUMBER OF VERTICAL": "LINES CORRECT" 

870 INPUT V» 

880 IF V««"Y" THEN 920 

890 PRINT "ENTER THE NUMBER OF VERTICAL": "LINES PER ADDRESS" 
900 INPUT N2 
910 GOTO 730 

920 PRINT "ARE THE HORIZONTAL TABS" : "CORRECT" 

930 INPUT H« 

940 IF H«»"Y" THEN 1000 

950 PRINT "RE-ENTER TABS" 

960 FOR 1=1 TO C 

970 INPUT TAXd) 

980 T=TAX<I) 
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990 NEXT I 

1000 PRINT "WOULD YOU LIKE ANOTHER TEST": "PATTERN PRINT" 

1010 INPUT B* 

1020 IF 6«="Y" THEN 730 

1030 Cl=Cl+6 

1040 IF C1'=2«N2 THEN 1090 
1050 PRINT 
1060 C1=C1+1 

1070 IF C1>6«N2 THEN 1090 
1080 GOTO 1040 
1090 RETURN 

1100 REM ««*«««)|(««)|(«l|C»««t««««««««««t*««»»i|(»««««««««*«»««4[«*«««««« 

1110 REM 

1120 REM EXAMPLE DATA FORMATION FOLLOWS 
1130 REM 

1140 REM *«««)i[««««*««««**«««]|[«««*»«««««»««**««««*«»««t»«»««t««««* 

1150 REM LINES 1160 AND 1200 CONTAIN THE NUMBER OF LINES IN THE ADDRESSES 
1160 DATA 3 

1170 DATA "JOHN D. DOE" 

1180 DATA "556 SMOKEY DRIVE" 

1190 DATA "GROTON, MASS 87878" 

1200 DATA 4 

1210 DATA "JODI MCGEE" 

1220 DATA "APARTMENT 4C" 

1230 DATA "456 EASTERLY ROAD" 

1240 DATA "TAYLORSVILLE, MAINE 23234" 

1250 DATA 1, "RECORD 3" 

1260 DATA 1, "RECORD 4" 

1270 DATA 



WOULD YOU LIKE TO SEE 
INSTRUCTIONS ( Y OR N)Y 
THIS PROGRAM PRODUCES 
ALPHABETIC LISTINGS OF NAMES 
AND ADDRESSES' PROVIDED IN 
DATA STATEMENTS. TO ENTER 
THE DATA ENTER THE NAMES AND 
ADDRESSES BEGINNING IN LINE 
NUMBER 1160. FOR EVERY NAME 
ENTER THE NUMBER OF LINES OF 
INFORMATION THAT IT WILL 
INCLUDE. 

END YOUR DATA ENTRIES WITH 
A DATA CARD. 

DO YOU WANT TO PRINT ALL 

OF THE RECORDS 

Y 

ENTER THE NUMBER OF VERTICAL 
LINES PER ADDRESS 
5 

ENTER THE NUMBER OF 
ADDRESSES PER LINE 
1 

ENTER THE TAB POSITIONS OF 
EACH COLUMN 
1 

POSITION PAPER NOW 

111111111111111111111111111 

222222222222222222222222222 
333333333333333333333333333 
444444444444444444444444444 
555555555555555555555555555 
111111111111111111111111111 
222222222222222222222222222 
333333333333333333333333333 
444444444444444444444444444 

55555555555555555555555555S 
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ARE THE NUMBER OF VERTICAL 

LINES CORRECT 

Y 

ARE THE HORIZONTAL TABS 

CORRECT 

Y 

WOULD YOU LIKE ANOTHER TEST 

PATTERN PRINT 

N 



JOHN D. DOE 

556 SMOKE Y DRIVE 

OROTON, MASS 87B78 



JODI MC6EE 

APARTMENT 4C 

456 EASTERLY ROAD 

TAYLORSVILLE, MAINE 23234 

RECORD 3 



RECORD 4 



4 RECORDS MERE PRINTED 



MAJOR SYMBOL TABLE - ADDRESSES - VERSION 3 



NAME 


• • 


DESCRIPTION 




N3 




MAXIMUM NUMBER OF READS/END 


NUMBER 


NO 




STARTING RECORD NUMBER 




A$( > 




ADDRESS LINES 




N2 




VERTICAL LINES PER ADDRESS 




C 




NUMBER OF ADDRESS PER LINE 




Nl 




NUMBER OF LINES IN ADDRESS 


IN 


RO 




RECORD NUMBER PRINTED 




T< ) 




TAB POSITIONS 




X$( ) 




LINES OF TEXT IN 




FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 




TAB 


• • 


FORMATS PRINT LINES 




GOSUB 




BRANCHES TO AND RETURNS 




DIM 


• • 


2 DIMENSION ARRAYS 
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RECORD LISTS 



Description 

This program maintains your record library. It identifies the records 
owned and their locations. 

Functions of the Program 

The program reads the record information from DATA statements and 
produces a list in the order specified. Multiple passes through the data 
are used for the ordering process to minimize the use of files or arrays. 

Instructions for Use 

Enter the record information prior to running the program. 
Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The form of the data is: 

Artist, Title of the record, Location 

Output Description 

See examples provided. The order of the output is determined by the 
option selected. 



10 CALL CLEAR 

20 REM RECORDS LIST PROGRAM 

5a rem *»*»«»»»»«»»»«»»* DATA INITIALIZATION «««»»««««««««»««»« 

HQ n=iooo 

?S ^K.if!I ^ ^^^^"^ "^"^ ENTRIES IN" I "THE ORDER I HAVE THEM"i"<Y OR 

oO I NPUT A09 

70 IF AO«="Y" THEN 100 

80 PRINT "IN ORDERI BY ARTIST (A) OR"! "LOCATION <L) " 
90 INPUT A» 
100 PRINT 
110 PRINT 
120 PRINT 

130 IF A«»"A" THEN 260 
140 IF A*="L" THEN ES60 

Sir.., ***«**»««*«««»««» PROCESSING AREA »t»«»t»*t««»««t«t«««»« 

160 PRINT ARTIST/TITLE"iTAB(20) I "LOCATION" 

170 PRINT " "I TAB (20)1" 

ISO FOR 1=1 TO M 

190 READ G« 

200 IF 6*="END" THEN 240 
210 READ T$,L» 
220 PRINT G*iT»iTAB<20)iL«li 
230 NEXT I 

2?™ «»***«««»*«»»*«»« TERMINATION POINT »»»«»»«**»«««»«««»«« 

250 STOP 

2o?M^ »«t««*«»»»»»«»««» ARTIST SORT AND PRINT ««»»««»«»««t»«»» 

270 PRINT " ARTI8T/TITLE"|TAB<20> I "LOCATION" 

280 PRINT " "|TAB<20)i" 

290 1=1 

300 FOR Jol TO M 



136 Tl BASIC Computer Programs for the Home 



310 READ 6> 

320 IF G«="END" THEN 480 
330 READ T!»,L» 
340 IF J>I THEN 450 
330 IF J<I THEN 470 
360 S«°6» 

370 IF 1=1 THEN 430 

360 RESTORE 

390 FOR K=l TO J 

400 READ G«,T«,L« 

410 IF S»<>G$ THEN 430 

420 C=C+1 

430 NEXT K 

440 IF Ol THEN 480 

430 IF 6*<>S* THEN 470 

460 PRINT S«iT$}TAB(20)(L<ll 

470 NEXT J 

480 RESTORE 

490 C=0 

50O IF I>1 THEN 320 
310 M=J-1 
320 PRINT 
330 I»I+1 

340 IF I<=I1 THEN 300 
330 GOTO 240 

360 REM »*«>««»**»«««*««« LOCATION SORT AND PRINT »«»*««*»««**»* 

370 PRINT "L0CATI0N"|TAB<13); "TITLE/ARTIST" 

380 PRINT " "I TAB (13) I" " 

390 1=1 

600 FOR J=l TO M 

610 READ 6$ ^ 

620 IF G4="END" THEN 780 

630 READ Tt,L* 

640 IF J>I THEN 750 

630 IF J<I THEN 770 

660 S«=L« 

670 IF 1=1 THEN 750 

680 RESTORE 

690 FOR K=l TO J 

700 READ 6*,T»,Li> 

710 IF S*<>L» THEN 730 

720 C=C+1 

730 NEXT K 

740 IF Ol THEN 780 

730 IF L*<>S* THEN 770 

760 PRINT S»;TAB(13}|Ti>iTAB(15)|6«it 

770 NEXT J 

780 RESTORE 

790 C=0 

800 IF I>1 THEN 820 
810 M=J-1 
820 PRINT 
830 I=H-1 

840 IF I<=M THEN 600 
850 GOTO 240 

860 REM »*««»««««*»«««*«t DATA ENTRY FOLLOWS *»««*»«***««*«»»««» 

870 DATA THE HORSEFLIES, BUZZ IN AROUND, ATTIC 
880 DATA THE BUMBLEBEES, MAK IN HONEY, REC/CAB 
890 DATA SONGSTRESS, HAPPY SONGS, REC/CAB 
900 DATA THE STATUES, QUIET SOUNDS, ATTIC 
910 DATA THE HORSEFLIES, VOLUME 2, ATTIC 
920 DATA END 

SHQLL I PRINT THE ENTRIES IN 
THE ORDER 1 HAVE THEM 
<Y,DR N> 
? Y 

flRTISTz-TITLE LDCflTIDN 

tre~hsrsefl I gs riirz 

BUZZIN RROUND RTTIC 
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THE BUMBLEBEES 

MRKIR HDNEY REC^CflB 
SONGSTRESS 

HflPPY SDNSS RECXCRB 
THE^STfiTUES 

QUIET SOUNDS ATTIC 
VOLUME 2 ATTIC 



? ' n"" 



TtjE^ORDER 
<Y .OR f3> 



ARTIST^TITLE 

IRI 



BUzziN arBDnb 



THI 
MAI 



lEES 



^SygSTRESS 
HAPPY SONGS 

THE^STATUES 
QUIET SOUNDS 



LOCATION 
ATTIC 
ATT IC 

RECz-CAB 

RECxCAB 

ATTIC 



MAJOR SYMBOL TABLE - RECORD LISTS 
I 



I 


NAME 


DESCRIPTION 


I 


M 


MAXIMUM NUMBER OF DATA READS 


I 


A$ 


ORDER INDICATOR 


I 


6« 


ARTIST 


I 


J% 


TITLE 


I 


L$ 


LOCATION 


I 


S$ 


HOLD AREA FOR COMPARE 


I 


c 


COUNTER 



I 

FUNCTIONS USED 
I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 
I 
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RECORD SEARCH 



Description 

This program maintains your record library and allows both the printing 
of its contents and searches for any specific artist or record title. 

Functions of the Program 

The program reads the record information from DATA statements and 
prints all records in the order specified or locates all items that match a 
selection criteria that you supply. 

Instructions for Use 

The record information must be entered as DATA statements prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The format of the record inventory information is: 

Artist name, Title of record, Location 

Output Description 

See example provided. Note the various printing options that are 
available. 



1 CALL. CLEAR 

20 REM RECORD SEARCH AND LIST PROGRAM 

30 REM «««««««««««««*«t««» DATA INITIALIZATION «««tt«tt**««*t«« 

40 S=l 
50 M=1000 

60 PRINT "SHALL I PRINT ALL ITEMS"i"<Y OR N)?" 

70 INPUT Al« 

80 IF A1$="Y" THEN 180 

90 PRINT "WOULD YOU LIKE TO SEARCH FOR A TITLE <T>, OR ARTIST (A)?" 

100 INPUT A* 

110 IF A«="A" THEN 150 

120 PRINT "ENTER THE TITLE TO SEARCH" J "FOR" 
130 INPUT S$ 
140 GOTO 280 

150 PRINT "ENTER THE ARTIST TO SEARCH" i "FOR" 
160 INPUT SS 
170 GOTO 280 

180 PRINT "SHALL I PRINT THE ENTRIES IN"»"THE ORDER I HAVE THEM"|"<Y OR N)7» 

190 INPUT M% 

200 IF AO*="Y" THEN 230 

210 PRINT "IN ORDER: BY ARTIST (A) OR" i "LOCATION <L) » 
220 INPUT A* 
230 PRINT 
240 PRINT 
250 PRINT 

260 IF A«="A" THEN 560 
270 IF A«="L" THEN 860 

280 REM ««»*««««»«««««««*« PROCESSING AREA »«*««««««*««»*»««««*« 

290 PRINT 
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300 PRINT 

310 PRINT "ARTIST"; TAB (28); "TITLE"; TAB (48) J "LOCATION" 

320 PRINT " ' " 

330 FOR 1=1 TO M 
340 READ G$ 

350 IF G*="END" THEN 420 

360 READ T*,L« 

370 IF A1«="Y" THEN 400 

380 BOSUB 470 

390 IF SOI THEN 410 

400 PRINT B*;TAB(25);T$;TAB(50);L«:i 

410 NEXT I 

420 REM *«i|c»**)K)it«)|c»*i|c«««)|c« TERMINATION POINT *««»««»«««««««»«*«« 

430 PRINT 
440 PRINT 
450 PRINT 
460 STOP 

470 REM **»***»***«**#*»»« SUBROUTINE TO COMPARE ITEMS ««»*««*«» 
480 S=0 

490 IF A*="A" THEN 530 

500 IF T$<>S4 THEN 550 

510 S=l 

520 BOTO 550 

530 IF G*<>S* THEN 550 

540 S=l 

550 RETURN 

560 REM ««»«««««««*««««««« ARTIST SORT AND PRINT »*«t«»«««««»*«« 

570 PRINT "ARTIST"; TAB (28); "TITLE"; TAB (48); "LOCATION" 

580 PRINT " " 

590 1=1 

600 FOR J=l TO M 
610 READ 6$ 

620 IF S«="END" THEN 780 
630 READ T«,L« 
640 IF J>I THEN 750 
650 IF J<I THEN 770 
660 S«=6$ 

670 IF 1=1 THEN 750 

680 RESTORE 

690 FOR K=l TO J 

700 READ B*,T«,L* 

710 IF S*<>B$ THEN 730 

720 C=C+1 

730 NEXT K 

740 IF Ol THEN 780 

750 IF B*<>S* THEN 770 

760 PRINT S$;TAB(25);T*;TAB(50);L«i: 

770 NEXT J 

780 RESTORE 

790 C=0 

800 IF I>1 THEN 820 
810 M=J-1 
820 PRINT 
830 I=I-H 

840 IF I<=M THEN 600 
850 BOTO 420 

860 REM *1Htit****1H**t*****.t LOCATION SORT AND PRINT «««««»*«««««« 
870 PRINT "LOCATION"; TAB (15); "TITLE"; TAB (45); "ARTIST" 

880 PRINT " " 

890 1=1 

900 FOR J=l TO M 
910 READ G* 

920 IF G4i="END" THEN 1080 
930 READ T*,L* 
940 IF J>I THEN 1050 
950 IF J<I THEN 1070 
960 S«=L* 

970 IF 1=1 THEN 1050 

980 RESTORE 

990 FOR K=l TO J 
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1000 READ 6$,T«,L« 

1010 IF S«<>L* THEN 1030 

1020 C=C+1 

1030 NEXT K 

1040 IF Ol THEN 1080 

1050 IF L«<>S$ THEN 1070 

1060 PRINT S«;TAB<13)»T«;TAB<45);Q«E» 

1070 NEXT J 

1080 RESTORE 

1090 C=0 

1100 IF I>1 THEN 1120 
1110 M=J-1 
1120 PRINT 
1130 1=1+1 

1140 IF I<=M THEN 900 
1130 BOTO 420 

1160 REM »*«««i|:«]|[*«i|ti|c*«««« DATA ENTRY FOLLOWS «««*«t««»«*lt««««tt« 

1170 DATA THE HORSEFLIES, BUZZIN AROUND, ATTIC 

1180 DATA THE BUMBLEBEES, M AKIN HONEY, REC CAB 

1190 DATA THE SING IN SONGSTRESS, HAPPY SONGS, REC CAB 

1200 DATA THE STATUES, QUIET SOUNDS, ATTIC 

1210 DATA THE HORSEFLIES, VOLUME 2, ATTIC 

1220 DATA END 



>RUN 



RLL ITEMS 



ILL I PRINT Tl 
. QRDER I Hfivl 
□ R N>? 



RIES IN 



QRT I ST 
T I TLE 



LDCflTIDN 
ATTIC 
REC CAB 



THE HORSEFLIES 
BUZZIN AROUND 



lUMBLEBEES 
I HONEY 



THE _ 
QUIET 



STATUES 
~ SOUNDS 



ATTIC 
ATTIC 



^SHALL I PRINT ALL ITEMS 
|y or N>? 

ENTER THE ARTIST TD SEARCH 
? RaRRIED HUSTLERS 



ARTIST 
TITLE 



LOCATION 



>RUN 

SHALL I PRINT ALL ITEMS 
<Y OR N>? 

WOULD YOU LIKE TO SEARCH FOR 
A TITLE<T>, DR ARTIST<A>? 

ENTER THE ARTIST TD SEARCH 



7°¥hE HORSEFLIES 



LOCATION 



THE HORSEFLIES 
BUZZIN AROUND 



iEFLIES 



ATTIC 
ATTIC 



List Programs for Every Purpose 





MAJOR 


SYMBOL TABLE — RproRn rpapph 


I 


NAME 


• • BESCRIPTION 


I 


8 


SUITCH INDICATOR 


I 


M 


• « MAXIMUM NUMBER OF DATA READS j 


I 


S$ 


ITEM TO SEARCH FOR : 


I 


A$ 


ORDER INDICATOR j 


I 


Of 


ARTIST/GROUP : 


I 


T$ 


TITLE : 


I 


L% 


LOCATION ] 


z 


C 


COUNTER ] 


I 


I 


COUNTER ] 




FUNCTIONS USED 


I 


NAME 


DESCRIPTION ] 


I 


TAB 


FORMATS PRINT LINES ] 


I 


GOSUB 


BRANCHES TO AND RETURNS ] 
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REFERENCES FILING 



Description 

This program offers the user the opportunity to record important refer- 
ences for school, hobby, or home use, and to retrieve selected references 
when required. 

Functions of the Program 

The program accepts the reference entries from the data and prints 
cither all entries or just those that match the user supplied selection 
criteria. Selection is based upon the reference code given to each item. 

Instructions for Use 

Categorize the references within appropriate reference codes, and then 
enter them as data prior to nmning the program. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The format of the reference entries is: 

Reference code, Item, Location, page number 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM REFERENCE LOCATING PROGRAM 

30 REM »««««»»«»«»««»*«»«« DATA INITIALIZATION ««««Mt»«**««t« 

40 M»1000 

SO PRINT "SHALL I PRINT ALL ENTRIES"! (Y OR N)"| 
60 INPUT M 
70 REM 

80 IF Ato-Y" THEN 110 

90 PRINT "ENTER THE REFERENCE CODE" I "FOR THE SEARCH" 
100 INPUT X» 
110 REM 
120 REM 
130 REM 

140 REM ^ 

ISO PRINT TAB(3)|"C0DE/"|TAB<l7)|"ITEM/-|TAB<28>f"L0CATI0N"|TAB<lS)r'PAGE HBR" 

160 PRINT " " 

170 REM 

180 REM «*««*»»»»»»»«««««> PROCESSING AREA »*»«»»»»m«»t«»»«««« 

190 FOR 1=1 TO M 
200 READ C* 

210 IF C*a"END" THEN 320 

220 READ R«,L»,P« 

230 IF A»<>"Y" THEN 260 

240 PRINT C«;TAB(10}|R*|TAB(28)|L«|TAB(23)|P* 

241 PRINT 
250 GOTO 310 

260 IF C»<>X» THEN 310 
270 C»C+1 
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280 IF C»l THEN 300 
290 C*n" " 

300 PRINT C«|TAB(10)|R*iTAB(28)|L«|TAB<23)|P* 

301 PRINT 
310 NEXT I 

320 REM «»*»»«»««»««»«»««» PROGRAM TERMINATION POINT »*«»»»«»«»« 

330 PRINT 
340 PRINT 
350 PRINT 
360 STOP 

370 REM «»«««««»«««*t*«««« DATA ENTRIES FOLLOW «t»«««*««>«««*««» 

380 DATA SOFTWARE, REFERENCE PROS., BASIC PROS. /HOME, 36 

390 DATA HARDWARE, INSTALLING A DISK, MAS. #1,28 

400 DATA SOFTWARE, FISHERMAN'S DIARY, BASIC PROS. /HOME, 89 

410 DATA HARDWARE, FIXING MACHINE X,MAG. «2,98 

420 DATA SOFTWARE, 9900 SORT, MAS. «»3, 13 

430 DATA SOFTWARE, LSI 11 INST. , REFERENCE BOOK, 343 

440 DATA SOFTWARE, BASIC, MAS XY8,24 

450 DATA END 



>RUN 
SHALL I PRINT 
<Y^DR^N>? Y 

LDCRT I ON 



ALL ENTRIES 



HflG 



MflG 



TWRRE 
IC PRO 


REF 
G . y 


DWflRE 
. # 1 


INS 


TWRRE 
I C PRO 


FIS 
6 . y 


DUQRE 
. #2 


FIX 


TtJflRE 
. #3 


990 


TWRRE 
ERENCE 


LSI 
BO 


TWRRE 
XYS 


BRS 



PRO 

1 fl 



28 



SORT 
.11 INST 



DIARY 
89 



98 
13 
345 
24 



>RUN 
SHR 



b 


L 






E 






\ 




T 


H 


E 


□ 


F 


T 


W 


□ 


D 


E 


y 


R 


T 


I 


□ 



PRINT ALL ENTRIES 
IE-REFERENCE CODE 



ITEM^ 
PAGE NBR 



^« 9900 SORT 
MAG. #3 13 

REFERENCe'-ISgJ^ 345 



MAG XYS 



BASIC 



24 
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MAJOR SYMBOL TABLE - REFERENCES 
I 1 

I NAME DESCRIPTION I 
I 1 

I M MAXIMUM NUMBER OF DATA READS I 
I X$ CODE TO SEARCH FOR I 
I C^ *• CODE IN I 
I R$ REFERENCE ITEM IN I 
I P% PAGE NUMBER/SUB LOCATION IN I 
I 1 

FUNCTIONS USED 
I 1 

I NAME DESCRIPTION I 
I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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MUSIC COLLECTIONS 



Description 

This program offers the musically inclined an able assistant to locate 
and print the location of all their favorite pieces. Selected pieces can be 
searched for and printed, if desired. 

Functions of the Program 

The program accepts the music entries from the data and prints either 
all items or just diose that match the user-supplied selection criteria. 
The selection of items is based upon a search through the titles of the 
data entered. 

Instructions for Use 

Enter the items as DATA prior to running the program. 
Data Entry 

All data is entered as DATA statements. 
Data Format 

The musical pieces are entered in the form: 

Tide, Location, Page number 

Output Description 

See example provided. Printed output is either a formatted list of all 
items or a print of those items that match the tide being searched for. 



10 CALL CLEAR 

20 REM MUSIC/SONB LOCATINS PROGRAM 

30 REM *«»»««««»«»»«»«»««« DATA INITIALIZATION *«««»««»*«*««««* 

40 M=1000 

50 PRINT "SHALL I PRINT ALL ENTRIES"! " <Y OR N )?" 
60 INPUT M 
70 PRINT 

80 IF A«='"Y" THEN 150 

90 PRINT "ENTER THE SONS TO FIND" 

100 INPUT X« 

110 PRINT 

120 PRINT 

130 PRINT 

140 PRINT 

150 PRINT ••SONG"5TAB<19)|"PABE NBR" ; TAB <30) | "LOCATION" 

160 PRINT " 

170 PRINT 

180 REM «**««**«»*««««»««» PROCESSINS AREA «t«»«»««««*«t*»«*<«»« 

190 FOR 1=1 TO M 
200 READ R« 

210 IF R«="END" THEN 340 

220 READ L«,P* 

230 IF A$<>"Y" THEN 270 

240 PRINT R*;TAB<30);L$pTAB<25);P« 

250 PRINT 

260 SOTO 330 

270 IF R*<>X« THEN 330 

280 S«S+1 
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290 IF S=l THEN 310 
300 R«»" " 

310 PRINT R*;TAB<30>;L«jTAB<25>;P« 
320 PRINT 
330 NEXT I 

340 REM «t«t««««»««««««««t PRQ6RAM TERMINATION POINT t*««*««*t«« 

350 PRINT 
360 PRINT 
370 STOP 

380 REM t*«««««««««*t««*«« DATA ENTRIES FOLLOW t«««t«««<t«*»«*t« 

390 DATA JINGLE BELLS, INTRO MUSIC BOOK 1,34 

400 DATA THE CHRISTMAS SONQ, MUSIC FOR CHRISTMAS, 86 

410 DATA SILENT NIGHT, BOOK 2,190 

420 DATA SILVER BELLS, BOOK #3,56 

430 DATA JINGLE BELLS, ADVANCED BOOK 4,123 

440 DATA DECK THE HALLS, BOOK 7,23 

450 DATA WHITE CHRISTMAS, CHRISTMAS BOOK 4,67 

460 DATA JINGLE BELLS, BOOK 8,67 

470 DATA END 



SHALL I PRINT ALL ENTRIES 
<Y OR N )? 
? Y 

SONG PAGE NBR 

LOCATION 



JINGLE BELLS 
INTRO MUSIC BOOK 1 34 

THE CHRISTMAS SONG 
MUSIC FOR CHRISTMAS 86 

SILENT NIGHT 
BOOK 2 190 

SILVER BELLS 
BOOK #3 56 

JINGLE BELLS 
ADVANCED BOOK 4 123 

DECK THE HALLS 
BOOK 7 23 

WHITE CHRISTMAS 
CHRISTMAS BOOK 4 67 

JINGLE BELLS 
BOOK 8 67 



SHALL I PRINT ALL ENTRIES 
<Y OR N )? 
? N 

ENTER THE SONG TO FIND 
? JINGLE BELLS 



SONG PAGE NBR 

LOCATION 



JINGLE BELLS 

INTRO MUSIC BOOK 1 34 

ADVANCED BOOK 4 123 

BOOK 8 67 
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BREAK IN 350 

MAJOR SYMBOL TABLE - MUSIC 

I 1 

I NAME DESCRIPTION I 
I 1 

I M MAXIMUM NUMBER OF DATA READS I 
I X« «• SONG/MUSIC TO SEARCH FOR I 
I Rf *• SONG/MUSIC IN I 
I Lf LOCATION I 
I P$ PAGE NUMBER/SUB LOCATION I 
I 1 

FUNCTIONS USED 

I 1 

I NAME DESCRIPTION I 

I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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COIN COLLECTIONS 



Description 

This program offers the numismatist an able assistant to keep track of 
his collection. The collection can be listed in its entirety, or selected 
dates, coin denominations, mints, or coin types can be printed upon 
request. 

Functions of the Program 

The program accepts the coin information from the data and prints the 
items specified. The selection of items to be printed can be based upon 
most of the items included in the data. 

Instructions for Use 

Enter the individual collection items into the program prior to nmning it. 
Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The format for the data is: 

Coin date, Denomination, Mint, Coin type, 
Number minted (in millions). Condition 

Output Description 

See example provided. Output is either a formatted list of all items or a 
print of those that satisfy the selection criteria. 



10 CALL CLEAR 

20 REM COIN COLLECTION PROBRAM 

30 REM DATA INITIALIZATION 

40 M=1000 

50 REM «»«»**««*««««f*«*«« PROCESSING STARTS t««*«|[t«««»«»«*»«« 

60 PRINT "SHALL I PRINT ALL OF THE" : "ENTRIES <Y OR N)?" 
70 INPUT A« 

80 IF A*<>"Y" THEN 230 

90 REM ««««««»«««««« PRINT ROUTINE FOR "ALL" ENTRIES ««»*«*«««« 
100 PRINT 
110 PRINT 
120 PRINT 

1 30 PRINT "DATE" ; TAB <8) ; "SI ZE" j TAB < 14) ; "MINT" | TAB <22) ; "TYPE" > TAB <36) | 
140 PRINT "NBR(MIL)";TAB(4B); "CONDITION" 

150 PRINT " " 

160 PRINT 

170 FOR 1=1 TO M 

180 READ Dt 

190 IF D«="END" THEN 990 
200 READ S$,M$,T«,N,C« 

210 PRINT D«;TAB(9) ;S«;TAB(15) ;M$;TAB(20))T$;TAB(36);N;TAB(48) ;C«ii 
220 NEXT I 

230 PRINT "WHAT SHALL I SEARCH FOR: ": "DATE <D) , DENOMINATION SIZE <S) "i "MINT 

<M) OR TYPE(T)?" 

240 PRINT 

250 INPUT A* 

260 IF A«="T" THEN 820 
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270 IF A*="S" THEN 460 
280 IF A*="M" THEN 640 

290 REM DATE SEARCH AND PRINT ««*«««**«*«(«««« 

300 PRINT "ENTER THE DATE TO SEARCH" : "FOR" 
310 INPUT X« 
320 PRINT 
330 PRINT 

340 PRINT X*;TAB<B);"SIZE"sTAB<14);"MINT";TAB<22)5"TYPE"; 
350 PRINT TAB (36) ;"NBR (MIL) "s TAB (48); "CONDITION" 

360 PRINT " " 

370 PRINT 

380 FOR 1=1 TO M 

390 READ D* 

400 IF D*="END" THEN 990 
410 READ S«,M$,T*,N,C* 
420 IF D*<>X$ THEN 440 

430 PRINT TAB(a) ;S*;TAB(16) ;M«;TAB(20) ;T«;TAB(36) jN, ;TAB(4B) ;C*s 8 
440 NEXT I 
450 GOTO 990 

460 REM *«)|c*«*««*)K«DENOMINATION SIZE SEARCH AND PRINT *»««««««*« 

470 PRINT "ENTER THE DENOMINATION SIZE": "TO SEARCH FOR" 

480 INPUT X* 

490 PRINT 

500 PRINT 

SIO PRINT 

520 PRINT " "; X*; TAB (8) ; "DATE" ; TAB (14); "MINT"; TAB <22); "TYPE" J 
530 PRINT TAB (36) ;"NBR (MIL)"; TAB (47); "CONDITION" 

540 PRINT " " 

550 PRINT 

560 FOR 1=1 TO M 

570 READ D* 

580 IF D«="END" THEN 990 
590 READ S«,M*,T$,N,C$ 
600 IF S*<>X« THEN 620 

610 PRINT TAB(9) ;D$;TAB(15) ;M«;TAB(20) ;T$;TAB(36) $N;TAB(48) ;C«: i 
620 NEXT I 
630 GOTO 990 

640 REM ****************** MINT SEARCH AND PRINT *************** 

650 PRINT "ENTER THE MINT TO SEARCH FOR" 
660 INPUT X$ 
670 PRINT 
680 PRINT 
690 PRINT 

700 PRINT " ";X*; TAB (8); "DATE"; TAB (15); "SIZE"; TAB (22) J "TYPE"; 
710 PRINT TAB (36) ;"NBR (MIL)"; TAB (47); "CONDITION" 

720 PRINT " " 

730 PRINT 

740 FOR 1=1 TO M 

750 READ D* 

760 IF D*="END" THEN 990 
770 READ B*,M*,T«,N,C$ 
780 IF M*<>X* THEN 800 

790 PRINT TAB (9) ; D«; TAB ( 15) ; S$; TAB (20) ; T$; TAB (36) ; N; TAB (48) ; C*: s 
BOO NEXT I 
810 GOTO 990 

820 REM ****************** TYPE SEARCH AND PRINT *************** 

830 PRINT "ENTER THE TYPE TO SEARCH FOR" 

840 INPUT X* 

850 PRINT 

860 PRINT 

B70 PRINT 

880 PRINT " ";X*:;TAB(2);"MINT";TAB(8);"NBR(MIL)";TAB(16);"DATE";TAB(23)| 
"SIZE"; 

890 PRINT TAB(23);"C0ND." 

900 PRINT " " 

910 PRINT 

920 FOR 1=1 TO M 

930 READ D« 

940 IF D«="END" THEN 990 
950 READ S*,M*,T*,N,C* 
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960 IF T«<>X« THEN 980 

970 PRINT TAB(2);M$;TAB(8);N;TAB(16);D«;TAB(23);S«;TAB(51)$C«:i 
980 NEXT I 

990 REM «*«**««««««««««««* PR06RAM TERMINATION POINT tttt******* 

1000 PRINT 
1010 PRINT 
1020 STOP 

1030 REM ««««»*««««««««**« DATA ENTRIES FOLLOW 

1040 DATA 1947,. 25, D, FRANKLIN, 10. 00, VF 

1050 DATA 1944, .05, S, SILVER, 22. 00, PROOF 

1060 DATA 1965, .10, D, FLAW, 114.1, F 

1070 DATA 1978, M,S, PROOF SET, 3. 2, PROOF 

1080 DATA 1979, M,P, MINT SET, 4. 50, UNO 

1090 DATA 1945,. 05, D, SILVER, 16. 47, VF 

1100 DATA 1907,. 01, S, ,.35,8 

1110 DATA 1901,. 01,, INDIAN,. 86, G 

1120 DATA 1865, 1.00, CC, ,65. 17,6 

1130 DATA 1945, .25,8, FRANKLIN, 8.89, F 

1140 DATA END 



>RUN 

SHALL I PRINT ALL OF THE 
ENTRIES <Y OR N)? 
? Y 



DATE SIZE MINT TYPE 

NBR(MIL) CONDITION 



1947 


.25 
10 


D 


FRANKLIN 
VF 


1944 


.05 

22 


S 


SILVER 
PROOF 


1965 


.10 
114. 1 


D 


FLAW 
F 


1978 


M 

3.2 


S 


PROOF SET 
PROOF 


1979 


M 

4.5 


P 


MINT SET 
UNC 


1945 


.05 
16.47 


D 


SILVER 
VF 


1907 


.01 
.35 


S 


6 


1901 


.01 
.86 




INDIAN 
G 


1865 


1.00 
65.17 


CC 


6 


1945 


.25 
8.89 


s 


FRANKLIN 
F 


>RUN 
SHALL I 
ENTRIES 


PRINT 
(Y OR 


ALL 
N)? 


OF THE 



? N 

WHAT SHALL I SEARCH FOR: 
DATE ( D) , DENOMINATION SIZE(S) 
MINT<M) OR TYPE<T)? 
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? s 

ENTER THE DENOMINATION SIZE 
TO SEARCH FOR 
7 M 



M DATE MINT TYPE 

NBR<MIL) CONDITION 



197B S PROOF SET 
3. 2 PROOF 

1979 P MINT SET 
4.5 UNC 



MAJOR SYMBOL TABLE - COINS 



NAME 


• • 


DESCRIPTION 




M 


• • 


MAXIMUM NUMBER OF DATA 


READS 


D« 


• • 


DATE OF COIN 




S» 




SIZE (DENOMINATION) OF 


COIN 


Mf 




MINT OF COIN 




T* 


• • 


COIN TYPE 




N 


• • 


NBR MINTED (MILLIONS) 




C$ 


• • 


COIN CONDITION 




Xt 


• • 


ITEM TO SEARCH FOR 




FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 




TAB 


• • 


FORMATS PRINT LINES 
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COIN INVESTMENTS 



Description 

This program offers additional information to the numismatist that 
considers the collection as an investment. The collection information 
maintained by this program differs slightiy from the previous version. 

Functions of the Program 

This program accepts the coin information from the data items and 
prints it as specified by your responses to the program's questions. The 
list can include all, or selected categories of, items and can, if desired, 
include total cost and current value information. 

Instructions for Use 

The mdividual item information must be entered prior to running the 
program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the dau is: 

Coin date. Denomination, Mint, Type, 
Number minted (in millions). Purchase date. Quantity, Cost, Value 

Output Description 
See example provided. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 



10 CALL CLEAR 

20 REM COIN INVESTMENT RECORD PROGRAM 

22 REM t*»««««»»»**»«»«*« OPEN STATEMENT FOR PRINTER **lc«*««*«t 

24 REM »*» CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT *»» 
26 OPEN ttl: "RS232.BA=9600.DA>=8" 

30 REM «»»«««««»«»«««««««* DATA INITIALIZATION «««««**tt«««»t«« 

40 M=1000 

50 REM PROCESSING STARTS «««*«»««««*«*««««* 

60 PRINT "SHALL I PRINT ALL OF THE": "ENTRIES <Y OR N)?" 
70 INPUT A« 

80 PRINT "SHALL I PRODUCE TOTAL COSTS/": "VALUES FOR YOU <Y OR N)?" 

90 INPUT Al* 

100 IF A«<>"Y" THEN 310 

110 REM »»»*»*»««*» PRINT ROUTINE FOR "ALL" ENTRIES »»«»*«»»»«*» 

120 PRINT #1: 
130 PRINT #1: 
140 PRINT #1: 

150 PRINT #1: "DATE"; TAB <8) j "SlZE"jTAB<14) ; "C0ND";TAB<22> j "TYPE"; TAB (34) | 
160 PRINT #1: "NBR(MIL) ";TAB(47> ; "PRCH";TAB<53) ; "QTY";TAB<60> ; "COST"; 
170 PRINT #liTAB<65) J"VALUE" 

180 PRINT *l!" ";TAB<8);" ••;TAB<14);" ";TAB<20);" "; 

190 PRINT *»1:TAB<34)}" ";TAB<45);" ";TAB(53);" "; 
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200 PRINT #1:TAB<60);" "jTAB<6'i;" " 

210 FOR 1=1 TO M 
220 READ D$ 

230 IF D«="END" THEN 1310 

240 READ S«,M$,T«,N,C$,P*,Q,C,V 

250 PRINT «l:D*;M*5TAB<8);S*;TAB<lS);C«iTAB<20)jT«»TAB<36)|N>TAB<44>i 

260 PRINT #liP*jTAB<53) ;Q;TAB<59)iC;TAB(65);V 

270 IF A1«<>"Y" THEN 300 

280 C1=C1+(C*Q) 

290 Vl=Vl+<V«a) 

300 NEXT I 

310 PRINT "WHAT SHALL I SEARCH FOR" i "DATE <D) , DENOMINATION SIZECS)" 

320 PRINT "MINT(M), OR TYPE<T)?" 

330 INPUT A* 

340 IF A$="T" THEN lOBO 

350 IF A*="S" THEN 600 

360 IF A$="M" THEN 840 

370 REM «««««««*««««(««««* DATE SEARCH AND PRINT ««*»«»«««««*««« 

380 PRINT "ENTER THE DATE TO SEARCH FOR" 
390 INPUT X« 
400 PRINT «li 
410 PRINT #l8 

420 PRINT #1:" X*;TAB<8) ; "SIZE";TAB<14> | "C0ND"|TAB<22) | "TYPE"»TAB<34) | 
430 PRINT #ls "NBR(MIL> ";TAB<47) ; "PRCH">TAB<S3) t "QTY"iTAB<60) I "COST"! 
440 PRINT #1 : TAB <65) s" VALUE" 

450 PRINT «1:TAB<8);" ";fAB<14)|" "|TAB<20)j" "j 

460 PRINT «1:TAB<34);" ";TAB(45)|" ")TAB(53)(" "| 

470 PRINT #1:TAB<60);" ";TAB<65)s" " 

480 FOR 1=1 TO M 
490 READ D* 

500 IF D*="END" THEN 1310 

510 READ S«,M$,T«,N,C«,P*,Q,C,V 

520 IF DSOX* THEN 580 

530 PRINT #l:TAB<5);M*;TAB<8);S*;TAB(15)jC*;TAB<20)»T»>TAB(36)|N|TAB<44)| 

540 PRINT «1:P«;TAB<53);Q;TAB<59);C;TAB<65)>V 

550 IF A1$<>"Y" THEN 580 

560 C1=C1+<C*Q) 

570 V1=V1+<V«Q) 

580 NEXT I 

590 GOTO 1310 

600 REM «*»«»*««««»««»DENOMINATION SIZE TO SEARCH AND PRINT****** 

610 PRINT "ENTER THE DENOMINATION SIZE"i"TO SEARCH FOR" 
620 INPUT X« 
630 PRINT «ls 
640 PRINT #1: 
650 PRINT #1: 

660 PRINT #1:" "; X«;TAB(8) ; "DATE";TAB<14) ; "COND" jTAB<22) j "TYPE"iTAB<34) j 
670 PRINT #1: "NBR<MIL) ";TAB<47) j "PRCH"lTAB(53) s "QTY"iTAB(60) i "COST"i 
680 PRINT *»1:TAB<65); "VALUE" 

690 PRINT #1:TAB<8);" ";TAB(14)j" "|TAB(20)|" "i 

700 PRINT ttl:TAB<34);" "j TAB (45);" " I TAB (53) |" "l 

710 PRINT #1:TAB<60);" "jTAB<65)8" " 

720 FDR 1=1 TO M 
730 READ D$ 

740 IF D*'«"END" THEN 1310 

750 READ S$,M*,T«,N,C«,P$,Q,C,V 

760 IF S*<>X* THEN 820 

770 PRINT #1 s TAB (8) ; D*; M*; TAB < 15) ; C«; TAB <20) ;T«j TAB <36) | N; TAB<44> i 

780 PRINT ttl:P*;TAB(53);Q;TAB<59) jC;TAB<65) jV 

790 IF A1*<>"Y" THEN 820 

800 C1'=C1 + <C«Q) 

810 V1=V1+<V»Q) 

820 NEXT I 

830 GOTO 1310 

840 REM «*«*«*«««««««««««« MINT SEARCH AND PRINT *«««««**««***«« 

850 PRINT "ENTER THE MINT TO SEARCH FOR" 
860 INPUT X$ 
870 PRINT #1: 
880 PRINT #1: 
890 PRINT #1: 
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900 PRINT #1:" X«;TAB (5) ; "DATE CD";TAB(15) j "SIZE";TAB<22) | "TYPE"| 
910 PRINT #1 1 TAB (34) ; "NBR (MIL) " ; TAB (47) ; "PRCH" ; TAB (53) ; "QTY" ; TAB(60) ; 
920 PRINT #1 : "COST"; TAB (65) ;" VALUE" 

930 PRINT #1:TAB(5);" ";TAB(15);" ";TAB(20);" "j 

940 PRINT #l:TAB(34)j" ";TAB(45);" "8TAB<53)|" "i 

950 PRINT #1: TAB (60) 5" ";TAB(65)}" " 

960 FOR 1=1 TO M 
970 READ D« 

980 IF D«="END" THEN 1310 

990 READ S«,M*,T«,N,C«,P«,Q,C,V 

1000 IF M«<>X$ THEN 1060 

1010 PRINT «1:TAB(5) ;D$;TAB(10);C«$TAB(15) ;S«;TAB(20);Tt;TAB(36)}N; 

1020 PRINT #l:TAB(44);P«;TAB(53)|QjTAB(59);CsTAB(65)iV 

1030 IF A1«<>"Y" THEN 1060 

1040 Cl°Cl-i-(CtQ) 

1050 V1=V1+(V*Q) 

1060 NEXT I 

1070 GOTO 1310 

1080 REM ««««*««««*«««««*« TYPE SEARCH AND PRINT ««««««««««««««»< 

1090 PRINT "ENTER THE TYPE TO SEARCH FOR" 
1100 INPUT X« 
1110 PRINT «li 
1120 PRINT #1: 
1130 PRINT «li 

1140 PRINT #1:" "| X*;TAB(16) J "DATE";TAB(24) ; "SIZE"|TAB(29) j "COND"; 
1150 PR I NT # 1 : T AB ( 34 ) J " NBR ( M I L ) " ; TAB ( 47 ) } " PRCH " ; TAB ( 53 ) j " QT Y " > TAB ( 60 ) i 
1160 PRINT #1:"C0ST";TAB(65); "VALUE" 

1170 PRINT #1: TAB (16) ; " ";TAB(24) ; " ";TAB(29) | " ";TAB(34> j 

1180 PRINT ttl:" ";TAB(45)>" ";TAB(S3)j" "| 

1190 PRINT «l:TAB(60)i" "»TAB(65);" " 

1200 FOR 1=1 TO M 
1210 READ D« 

1220 IF D*="END" THEN 1310 

1230 READ S«,M$,T$,N,C$,P«,Q,C,V 

1240 IF T«<>X« THEN 1300 

1250 PRINT #1:TAB(16) ;D«;TAB(24);S*;TAB(30);C«;TAB<34) jN|TAB<44)5 

1260 PRINT ttl:P$;TAB(53);Q;TAB(59)iC;TAB(65);V 

1270 IF A1*<>"Y" THEN 1300 

1280 C1=C1+(C«Q) 

1290 V1»V1-KV»Q) 

1300 NEXT I 

1310 REM **««««««««««««««« PROGRAM TERMINATION POINT »«*««««««««« 

1320 PRINT #1: 

1330 PRINT #lj 

1340 IF A1«<>"Y" THEN 1430 

1350 PRINT ^1 

1360 PRINT ttl:" TOTAL COST WAS ";C1 
1370 PRINT #1: "««***««««««««*«««««*»**«»" 
1380 PRINT #1:" TOTAL VALUE IS ";V1 
1390 PRINT «1: "««««««««««««*«»*»*«««t«««" 
1400 PRINT #1: 
1410 PRINT #1: 
1420 PRINT ttl: 
1430 STOP 

1440 REM *««««««»«««***««* DATA ENTRIES FOLLOM «««t«««t**«t«««««* 

1450 DATA 1947, .25, D, WASHINGTON, 10, VF, DEC 1978,1,1.50,1.50 
1460 DATA 1944,. 05, S, SILVER, 11.1,VQ, JAN 1979,50,1.50,1.75 
1470 DATA 1965,. 10, D, FLAW, 114.1, F, FEB 1979,1,10,11.50 
1480 DATA 1978, M,S, PROOF SET, 3. 2, PR, OCT 1978,10,1.00,17.50 
1490 DATA 1978, M,S, MINT SET, 4. 50, BU, OCT 1978,10,4.00,14.00 
1500 DATA 1945, .05, D, SILVER, 16.47, VF, JUL 1978, 100, . 40, . 55 
ISIO DATA 1907, .01,, INDIAN, .35, G, AUG 1979, 1000, . 75, . 80 
1520 DATA 1901, .01, , INDIAN, .86,8, SEP 1979, 2000, . 75, . 80 
1530 DATA 1875, 1.00, CC, ,65. 17, Q, SEP 1979,1,65,75 
1540 DATA 1945, .25, S, WASHINGTON, 8.89, F, SEP 1979,5,1.75,2.10 
1550 DATA END 



List Programs for Every Purpose 155 



>RUN 

SHALL I PRINT ALL OF THE 
ENTRIES <Y OR N)? 
? Y 

SHALL I PRODUCE TOTAL COSTS/ 
VALUES FOR YOU <Y OR N)? 
? Y 



DATE 


SIZE 


COND 


TYPE 


NBR<MIL) 


PRCH 


QTY 


COST 


1947D 


.25 


VF 


WASHINGTON 


10 


DEC 


1978 


1 


1.5 


1944S 


.05 


VQ 


SILVER 


11.1 


JAN 


1979 


50 


1.5 


1965D 


.10 


F 


FLAW 


114.1 


FEB 


1979 


1 


10 


19788 


M 


PR 


PROOF SET 


3.2 


OCT 


1978 


10 


1 


1978S 


M 


BU 


MINT SET 


4.5 


OCT 


1978 


10 


4 


194SD 


.05 


VF 


SILVER 


16.47 


JUL 


1978 


100 


.4 


1907 


.01 


6 


INDIAN 


.35 


AUG 


1979 


1000 


.75 


1901 


.01 


G 


INDIAN 


.86 


SEP 


1979 


2000 


.75 


1875CC 


1.00 


G 




65.17 


SEP 


1979 


1 


65 


194SS 


.25 


F 


WASHINGTON 


B.B9 


SEP 


1979 


5 


1.75 



1.5 

I. 75 

II. 5 
17.5 
14 
.55 



75 



TOTAL COST WAS 2500.25 
TOTAL VALUE IS 2956 



>RUN 

SHALL I PRINT ALL OF THE 
ENTRIES <Y OR N)? 
? N 

SHALL I PRODUCE TOTAL COSTS/ 
VALUES FOR YOU <Y OR N)? 
? N 

WHAT SHALL I SEARCH FOR 
DATE < D) , DENOMINATION SIZE<S> 
M1NT<M), OR TYPE<T)? 
? D 

ENTER THE DATE TO SEARCH FOR 
? 1945 



1945 SIZE COND TYPE NBR<MIL) PRCH QTY COST VALUE 



D .05 VF SILVER 16.47 JUL 1978 100 .4 .55 

S .25 F WASHINGTON 8.89 SEP 1979 5 1.75 2.1 
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HAJOR SYHBOL TABLE - COIN INVESTMENTS 



NAME 




DESCRIPTION 


H 




MAXIMUM NUMBER OF DATA READS 


Df 




DATE OF COIN ] 


S$ 




SIZE (DENOMINATION) OF COIN ] 


H$ 




MINT OF COIN 


T$ 




TYPE OF COIN 


N 




NUMBER MINTED (MILLIONS) 


C$ 


♦ • 


CONDITION : 


P$ 


* • 


PURCHASE DATE : 


Q 




QTY OWNED ] 


C 


• • 


COST : 


V 


• • 


VALUE : 


CI 


• • 


TOTAL COSTS : 


114 


• • 


TOTAL VALUE ] 


X$ 


• • 


ITEM TO SEARCH FOR : 


1 

[ 

[ NAME 


-UNCTIONS USED 


• • 


DESCRIPTION 


[ TAB 


* • 


FORMATS PRINT LINES 
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BEER CAN COLLECTION 



Description 

This program offers beer can collectors (young or old) the capability to 
control their collections and take advantage of opportunities for trades. 

Functions of the Program 

The program accepts from the data the information concerning the 
individual cans in the collection and then prints the items specified. 
The items printed can include all or just a part of the collection, de- 
pending upon the selection criteria provided. 

Instructions for Use 

Enter the individual items of the collection as data prior to running the 
program. Items sold or traded should be deleted when the transaction 
occurs. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The format for the collection data is: 

Brand name, Size, Can type. Material, Color/Condition 

Output Description 

See example provided. Output is either a formatted list of all items or a 
list of those that match the selection criteria specified. 



10 CALL CLEAR 

20 REM BEERCAN COLLECTION PROSRAM 

30 REM «««««««««»»«««»«««» DATA INITIALIZATION 

40 M=1000 

SO REM «*««««*««««t««*«««« PROCESSING STARTS ««««»«*»««*»«(»««« 

60 PRINT "SHALL I PRINT ALL OF THE" 8 "ENTRIES (Y OR N>?" 
70 INPUT A* 

80 IF A$<>"Y" THEN 230 

90 REM »««»«»«««»«««[ PRINT ROUTINE FOR "ALL" ENTRIES *««««*«««« 
100 PRINT 
110 PRINT 
120 PRINT 

130 PRINT TAB (8) ; "BRAND": "SIZE"; TAB <B) | "TYPE"; TAB < 17) j "MAT" 
140 PRINT "COLOR/CONDITION" 

150 PRINT " " 

160 PRINT 

170 FOR 1=1 TO M 

180 READ B« 

190 IF B«="END" THEN 790 
200 READ S4i,T«,M«,C« 

210 PRINT B*:S*;TAB<8);T»;TAB<16)|M*iCtii 
220 NEXT I 

230 PRINT "WHAT SHALL I SEARCH FOR BRAND(B}, 8IZE(S) OR TYPE<T>" 

240 INPUT A* 

250 IF A«="T" THEN 620 

260 IF A*="S" THEN 440 
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270 REM «««««**«***««««»« BRAND SEARCH AND PRINT «t«*«t«**««««»«« 

280 PRINT "ENTER THE BRAND TO SEARCH" J "FOR" 
290 INPUT X« 
300 PRINT 
310 PRINT 

320 PRINT X«:"SIZE";TAB(8);"TYPE";TAB(16>;"MAT" 
330 PRINT "COLOR/CONDITION" 

340 PRINT " " 

350 PRINT 

360 FOR 1=1 TO M 

370 READ B» 

380 IF B«="END" THEN 790 

390 READ S$,T«,M*,C* 

400 IF B«<>X« THEN 420 

410 PRINT S!>;TAB(8);T*;TAB<16);M$:C«:: 

420 NEXT I 

430 GOTO 790 

440 REM «»»***«*«««|[«t**«»t SIZE SEARCH AND PRINT t*ttt**tt**tttttt 

450 PRINT "ENTER THE SIZE TO SEARCH FOR" 
460 INPUT X« 
470 PRINT 
480 PRINT 
490 PRINT 

500 PRINT " X«j TAB < 10); "BRAND"; TAB (8); "TYPE"; TAB (17); "MAT" 
510 PRINT "COLOR/ CONDITION" 

520 PRINT " 

530 PRINT 

540 FOR 1=1 TO M 

550 READ B« 

560 IF B«="END" THEN 790 
570 READ S«,T«,M«,C« 
580 IF S«<>X« THEN 600 

590 PRINT TAB(10);B«:TAB(8))T«;TAB<17);M«:C«si 
600 NEXT I 
610 GOTO 790 

620 REM *««««««*««*«**««*« TYPE SEARCH AND PRINT «««««««««*»«*«« 

630 PRINT "ENTER THE TYPE TO SEARCH FOR" 
630 PRINT "ENTER THE TYPE TO SEARCH FOR" 
640 INPUT X« 
650 PRINT 
660 PRINT 
670 PRINT 

680 PRINT " "; X*; TAB < 10) ; "BRAND" 8 TAB <8); "SIZE"; TAB (16); "MAT" 
690 PRINT "COLOR/CONDITION" 

700 PRINT " " 

710 PRINT 

720 FOR I»l TO M 

730 READ B« 

740 IF B«="END" THEN 790 
750 READ S«,T»,M$,C« 
760 IF TtOX* THEN 780 

770 PRINT TAB<10);B«:TAB(8) jS«;TAB<16);M«:C»:i 
780 NEXT I 

790 REM ««««*««««*««««««*« PROGRAM TERMINATION POINT ««««»«««*«» 

800 PRINT 
810 PRINT 
820 STOP 

830 REM t«««««t»««**«*»«« DATA ENTRIES FOLLOW «»««*«t««t«««««*«* 

840 DATA BRAND X,8 OZ,TAB TOP, ALUM, YELLOW GOOD 

850 DATA BRAND Y SPECIAL, 16 OZ,TAB TOP,STEEL, R/W EXCELLENT 

860 DATA BRAND X SPECIAL, 8 OZ,PCH TOP, ALUM, RED POOR 

870 DATA BRAND Y SPECIAL, 8 OZ,TAB TOP, ALUM, GREEN GOOD 

880 DATA BRAND X,16 OZ,PCH TOP, STEEL, R/W GOOD 

890 DATA END 
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>RUN 

SHALL I PRINT ALL OF THE 
ENTRIES (Y OR N)? 
? Y 



BRAND 
SiZE TYPE MAT 
COLOR/CONDITION 



BRAND X 

B OZ TAB TOP ALUM 
YELLOW GOOD 

BRAND Y SPECIAL 

16 OZ TAB TOP STEEL 

R/W EXCELLENT 

BRAND X SPECIAL 

8 OZ PCH TOP ALUM 

RED POOR 

BRAND Y SPECIAL 

8 OZ TAB TOP ALUM 

GREEN GOOD 

BRAND X 

16 OZ PCH TOP STEEL 
R/W GOOD 



>RUN 

SHALL I PRINT ALL OF THE 
ENTRIES <Y OR N)? 
? N 

WHAT SHALL I SEARCH FOR: 
BRAND<B), SIZE<S) OR TYPE(T) 
? T 

ENTER THE TYPE TO SEARCH FOR 
? TAB TOP 



TAB TOP BRAND 

SIZE MAT 
COLOR/CONDITION 



BRAND X 
8 OZ ALUM 
YELLOW GOOD 

BRAND Y SPECIAL 
16 OZ STEEL 
R/W EXCELLENT 

BRAND Y SPECIAL 
8 OZ ALUM 
GREEN GOOD 
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MAJOR SYMBOL TABLE - BEER CANS 
I 



I 


NAME 


• • 


DESCRIPTION 


I 


M 


• • 


MAXIMUM NUMBER OF DATA READS 


I 


B$ 


• • 


BRAND NAME 


I 


S$ 


• • 


SIZE OF CAN 


I 


T$ 


• • 


TYPE OF CAN 


I 


M* 


• * 


CAN MATERIAL 


I 


C$ 


• • 


COLOR/CONDITION 


I 




• • 


ITEM TO SEARCH FOR 



I 

FUNCTIONS USED 
I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 
I 
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BOOK COLLECTIONS 



Description 

The computer really becomes a librarian with this program. Books in 
your private collection can be listed or searched, as you desire, thus 
allowing you to control your library. 

Functions of the Program 

The program accepts the information about each book from the data 
and then prints the entries or selects those that match the criteria 
specified. 

Instructions for Use 

Prior to running the program, information about the books in the 
collection must be provided. 

Data Entry 

All data is entered as DATA statements. 
Data Format 

The form of the data input is: 

Titie, Author, Location 

Output Description 

See example provided. Output is a formatted list of all items or just 
those that satisfy the selection criteria specified. 



10 CALL CLEAR 

20 REM BOOK COLLECTION PROGRAM 

30 REM DATA INITIALIZATION «*»*«»«««««««««> 

40 M=1000 

50 REM PROCESSING STARTS 

60 PRINT "SHALL I PRINT ALL OF THE"i "ENTRIES <Y OR N)?" 

70 INPUT A« 

80 IF A«<>"Y" THEN 220 

90 REM **«*****»«♦»** PRINT ROUTINE FOR "ALL" ENTRIES ««««*«««» 
100 PRINT 
110 PRINT 
120 PRINT 

130 PRINT "TITLE"; TAB (16); "LOCATION" J TAB (28); "AUTHOR" 

140 PRINT " " 

150 PRINT 

160 FOR 1=1 TO M 

170 READ T« 

180 IF T*»"END" THEN 720 
190 READ A*,L« 

200 PRINT T«;TAB(19);L*;TAB(28);A*si 
210 NEXT I 

220 PRINT "WHAT SHALL I SEARCH FOR: "s "AUTHOR < A) , TITLE <T) , OR LOCATION<L)?" 

230 INPUT A* 

240 IF A$="L" THEN 570 

250 IF A$="A" THEN 410 

260 REM «««««*«]|c«*«««)|[«*«« TITLE SEARCH AND PRINT «»»*«*««««»««« 
270 PRINT "ENTER THE TITLE TO SEARCH": "FOR" 
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280 INPUT X* 
290 PRINT 
300 PRINT 

310 PRINT X«;TAB<16);"L0CATII0N"jTAB<28);"AUTH0R'» 

320 PRINT » 

330 FOR 1=1 TO M 
340 READ T« 

350 IF T«««"END" THEN 720 

360 READ M,Lt 

370 IF T«<>X« THEN 390 

380 PRINT TAB(16);L«;TAB(2B)}A« 

390 NEXT I 

400 SOTO 720 

410 REM «««««**««««««*««*» AUTHOR SEARCH AND PRINT »t«««««*««««« 

420 PRINT "ENTER THE AUTHOR TO SEARCH": "FOR" 
430 INPUT X$ 
440 PRINT 
450 PRINT 
460 PRINT 

470 PRINT X«; TAB < 19) ; "LOCATION" ; TAB (28) j "TITLE" 

480 PRINT " » 

490 FOR 1=1 TO M 
500 READ T* 

510 IF T*="END" THEN 720 

520 READ M,Lt 

530 IF A$<>X« THEN 550 

540 PRINT TAB(19))LS;TAB(28>;T«:i 

550 NEXT I 

560 GOTO 720 

570 REM ««««««««**»«*««««« LOCATION SEARCH AND PRINT «*««««««««« 

580 PRINT "ENTER THE LOCATION TO SEARCH" : "FOR" 
590 INPUT X* 
600 PRINT 
610 PRINT 
620 PRINT 

630 PRINT " " J Xt; TAB (28); "TITLE" I TAB (56) J "AUTHOR" 

640 PRINT " " 

650 FOR 1=1 TO M 
660 READ T« 

670 IF T«="END" THEN 720 
680 READ A»,L« 
690 IF L«<>X« THEN 710 
700 PRINT T«;TAB<28);A«:x 
710 NEXT I 

720 REM tttttttttttttt**** PROGRAM TERMINATION POINT *«t«««**««« 

730 PRINT 
740 PRINT 
750 STOP 

760 REM *««««*»*««««««»»*« DATA ENTRIES FOLLOW ««**«*««««**««««« 

770 DATA BASIC PROGRAMS FOR THE HOME, CHARLES STERNBERG, SHELF 1 

780 DATA BOOK 2, ANOTHER AUTHOR, SHELF 2 

790 DATA BOOK 3, ANOTHER AUTHOR, SHELF 1 

800 DATA BOOK 4, CHARLES STERNBERG, SHELF 2 

810 DATA BOOK 5, DAVID JONES, SHELF 2 

820 DATA END 



>RUN 

SHALL I PRINT ALL GF THE 
ENTRIES! <Y OR N>? 

7 Y 



T I TLE 
AUTHOR 



LDCAT ION 



BASIC PROGRAMS FOR THE HOME 

SHELF I 

CHARLES STERNBERG 



BOOK 2 

ANOTHER AUTHOR 
BOOK 3 

ANOTHER AUTHOR 



SHELF 2 
SHELF 1 
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BDOK 4 SHELF 2 

CHARLES STERNBERG 

BOOK 5 SHELF 2 

DflVID JDNES 



>RUN 

SHRLL I PRIMT RLL DF THE 
ENTRIES <Y DR N>? 

WHAT SHALL I SEARCH FOR: 
fi'JTHDRC A> , TITLE<T> , DR 
!^DCATiaN<L>? 

ENTER THE AUTHOR TD SEARCH 
FOR 

? CHARLES STERNBERG 



CHARLES STERNBERG LDCATIDN 

SHELF 1 

BASIC PROGRAMS FDR THE HOME 
i»or,.x >. SHELF 2 



MAJOR SYMBOL TABLE - BOOKS 

I 1 

I NAME DESCRIPTION I 
I 1 

I M *• MAXIMUM NUMBER OF DATA READS I 
I T$ TITLE I 
I A$ AUTHOR I 
I L« •« LOCATION I 
I X« ITEM TO SEARCH FOR I 
I 1 

FUNCTIONS USED 
I 1 

I NAME DESCRIPTION 1 
I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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SERVICE CALLS 



Description 

Service information and repair points are recalled at the touch of a 
button with this program for recording service information on your 
major home appliances. 

Functions of the Program 

This program provides little processing capability as it merely produces 
a formatted list of the service items included in the data. It does 
provide, however, a simple means of eliminating nagging household 
problems. 

Instructions for Use 

Enter information about the appliances and their service points prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The form of the data is: 

Appliance, Repair company, Address, Telephone number 

Output Description 
See example provided. 

Comments 

This program is ideally suited for experimentation in adding functions 
or extensions to the possibilities provided. As a start, consider addmg a 
selection function to print specified items. 



10 REM CALL CLEAR 

20 REM SERVICE CALL PROGRAM - BASIC 

30 REM «*»««««««»**»«»«»«« DATA INITIATION »«»«««»«$$«»*«««««*« 

40 M=iOOO 

50 REM <»««*»»««*«««»««««» PROCESSING AREA «««»«««««»**«*««*««* 

60 FOR 1=1 TO M 
70 READ I* 

80 IF lea-'END" THEN ISO 
90 PRINT 

100 READ St,X»,T» 

110 PRINT I«|TAB(16)(S»tTAB(0)|T«| 
120 PRINT TAB<16)|X« 
130 NEXT I 

140 REM «««»»«««««»«»»««««« PROGRAM TERMINATION POINT *»»»«»«»«« 
ISO PRINT 
160 PRINT 
170 STOP 

180 REM »««tt«*«»««»t*««*« DATA ENTRIES FOLLOW ««»*»««t«»t«««<t« 

190 DATA TELEVISION, XYZ SERVICE, ANY STREET, SSS- 1234 
200 DATA SEWING MACHINE, ABC CORP., WILSON ST., 333-1 100 
210 DATA END 
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>RUN 

TELEyiSIQN XYZ SERVIC 

5SS-1234 ANY STREET 

§iy ly^^Hf^CHINE fiBC CORP. 

333-1100 UlLSON St. 



MAJOR SYMBOL TABLE - SERVICE CALLS 
I 1 

I NAME *• DESCRIPTION I 
I 1 

I M MAXIMUM NUMBER OF DATA READS I 
t It ITEM I 
18$ COMPANY FOR SERVICE I 
I X» ADDRESS OF COMPANY I 
IT* TELEPHONE OF COMPANY I 
I 1 

FUNCTIONS USED 
I J 

I NAME »• DESCRIPTION I 
I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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RECORDING TAPES 



Description 

There is no reason to search manually through tape reels and hand- 
written notes to find a particular recording when this program can do it 
for you in much less time. 

Functions of the Program 

The program reads the tape information from the data supplied and 
prints an index of any or all tapes, or locates all items that meet the 
criteria specified. 

Instructions for Use 

The tape information and recorded items must be entered prior to 
running the program for the first time. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

1. A master record is required for each tape. The form is: 

Tape number, Speed 

2. Recorded items are entered using the form: 

A, Artist name, Title, Location on the tape 

Output Description 

See examples provided. The formatted output clearly identifies the con- 
tents of the tapes printed and the location of all items on the tape. 



10 CALL CLEAR 

20 REM TAPE RECORD PROGRAM - BASIC 

30 REM *»««««««««««**««*«« DATA INITIALIZATION ««««»»«»»««««*«« 

40 C0=1 
50 M°1000 

60 PRINT "SHALL I PRINT ALL ITEMS"i"<Y OR N)?" 

70 INPUT A0« 

80 IF A0«="Y" THEN 160 

90 PRINT "SHALL I SEARCH FOR A TAPE <T) "s "ARTIST < A) , OR SONB<S)?" 
100 INPUT Al* 

110 PRINT "ENTER THE ITEM TO SEARCH FOR" 
120 INPUT X« 
130 PRINT 
140 PRINT 
150 C0=0 

160 REM «*««««*«**««««««««« PROCESSING AREA «««««««««<««««««»««« 

170 FOR 1=1 TO M 
180 READ T« 

190 IF T«="END" THEN 390 

200 IF T«<>"A" THEN 270 

210 READ A«,P«,L« 

220 IF A0$<>"Y" THEN 250 

230 PRINT A*;TAB(28);P«;TAB(44);L«8» 
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240 GOTO 380 
250 QOSUB 440 
260 GOTO 380 

270 REM ««««««««««««»««««« TAPE MASTER ITEM PRINT «t***««««»**«« 

280 T1*»T« 
290 READ S« 
300 C»0 

310 IF AO«<>"Y" THEN 380 
320 PRINT 
330 GOTO 340 

340 PRINT "TAPE - T«; TAB < 14) ; "SPEED - "iS* 
350 PRINT 

360 PRINT "ARTIST"; TAB (28) J "SONG" J TAB (44); "LOCATION" 

370 PRINT " H 

380 NEXT I 

390 REM t****t****tt*$**t*$ TERMINATION POINT «««»t«««««««*t*««« 

400 IF COOO THEN 420 
410 PRINT "ITEM NOT FOUND" 
420 PRINT 
430 STOP 

440 REM *«««««**»*««««*«««» SELECTION PROCESSING AREA «««*««««»« 
450 IF A1«<>"T" THEN 580 
460 IF T«<>"A" THEN 730 
470 IF T1*<>X« THEN 730 
480 IF OO THEN 540 

490 PRINT "TAPE - "; Tl*j TAB < 14) ; "SPEED - ":S* 
500 PRINT 

510 IF C0>0 THEN 540 

520 PRINT " ARTIST"; TAB <28); "SONG"; TAB <44); "LOCATION" 
530 PRINT " 

54(5 PRINT A«;TAB<28);P«;TAB<44);L«ii 

550 CO«=CO+1 

560 C=C+1 

570 GOTO 730 

580 IF A1«<>"A" THEN 660 

590 IF A$<>X« THEN 730 

600 IF C0>0 THEN 640 

610 PRINT "SONG"; TAB (16) ; "TAPE"; TAB <28) ; "ARTIST"; TAB (44) | "LOCATION" 

620 PRINT " " 

630 C0=C0+1 

640 PRINT A«;TAB<16);Tl«;TAB(28);Pti;TAB<44);L*:i 

650 GOTO 730 

660 IF A1«<>"S" THEN 730 

670 IF P$<>X« THEN 730 

680 IF C0>0 THEN 720 

690 PRINT "SONG"; TAB < 16) ; "TAPE"; TAB (28) ; "ARTIST"; TAB <44) ; "LOCATION" 

700 PRINT " 

710 00=00+ 1 

720 PRINT P*;TAB<16);T1*;TAB<28);A«;TAB<44);L*:: 
730 RETURN 

740 REM «*«t«*i|t««««*««*««« DATA ENTRIES FOLLOW 

750 DATA 100,3 5/8 

760 DATA A, SINGER 1,S0NG 1,1 

770 DATA A, SONGSTRESS 2, PIECE 2,2 

780 DATA 101,7 1/2 

790 DATA A,REDDY,NEWS0NG,7523 

800 DATA A, REDD Y, OLD SONG, 516 

810 DATA A, ANOTHER, NEWSONG, 863 

820 DATA TAPE 3,7 1/2 

830 DATA A, REDDY, ANOTHER SONG, 14 

840 DATA A, SOMEONE, NEWSONG, 56 

850 DATA END 
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>RUN 

SHALL I PRINT ALL ITEMS 
<Y OR N)? 
? Y 

TAPE - 100 SPEED - 3 5/8 



ARTIST 

SONS LOCATION 



SINGER 1 

SONG 1 1 

SONGSTRESS 2 
PIECE 2 2 



TAPE - 101 

ARTIST 
SONG 



REDDY 
NEWSONG 

REDDY 
OLD SONG 



SPEED - 7 1/2 
LOCATION 
7523 
516 



ANOTHER 

NEWSONG 865 



TAPE - TAPE 3SPEED - 7 1/2 
ARTIST 

SONG LOCATION 



REDDY 

ANOTHER SONG 14 
SOMEONE 

NEWSONG 56 



>RUN 

SHALL I PRINT ALL ITEMS 
<Y OR N)? 
? N 

SHALL I SEARCH FOR A TAPE<T 
) 

ARTIST < A), OR SONQ<S)? 
? S 

ENTER THE ITEM TO SEARCH FO 
R 

? NEWSONG 



SONG 
ARTIST 



TAPE 
LOCATION 



NEWSONG 
REDDY 



101 
7523 



NEWSONG 
ANOTHER 



101 
865 



NEWSONG 
SOMEONE 



TAPE 3 
56 
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MAJOR SYMBOL TABLE - RECORDING TAPES 



nHnc 


* • 


utiaurcxr'l XUN 


M 


* * 


MAXIMUM NUMBER OF DATA READS 


X% 


• * 


ITEM TO SEARCH FOR 


T« 


• • 


TAPE NUMBER/TRANSACTION TYPE 


M 


• • 


ARTIST 


Ft 


• • 


SONG 


Lt 


• • 


LOCATION ON TAPE 


St 




TAPE SPEED 


Tl$ 


♦ ♦ 


TEMPORARY TAPE NUMBER SAVE 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINES 
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CLUB LISTS 



Description 

For the individual involved in club activities, tiiis program can save 
hours of manual typing and calculation efforts. 

Functions of the Program 

The program reads club member information from the DATA state- 
ments and performs the requested processing, Processing requirements 
are determined by the option number entered. All options are separated 
in the program for clarity. The options available are: 

1. Printing mailing labels 

2. Computing and printing members' dues status 

3. Printing a list of names and telephone numbers 

4. Printing a member listing in checklist form 

Instructions for Use 

Enter and store the member information, prior to the program's use. 
Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

1. The first data record contains spacing and dues information: 

Lines to print per address, Dues required for each period 

2. Individual member information is entered in the form: 

Name, Telephone, Street, City-State-Zip code, Dues paid 

Output Description 

See examples provided. Option choices determine the format of the 
output produced. 



1 CALL CLEAR 

20 REM CLUB LISTING PROGRAM 

30 REM ««««««««»«««»«*«»»« DATA INITIALIZATION »»«»tt**«**»««»« 

40 M= 10000 
50 PRINT 
60 PRINT 

70 PRINT " FOUR OPTIONS ARE AVAILABLE" 

80 PRINT TAB(5);"1. PRINT IN MAILING" ; TAB <8) J "LABEL FORMAT" 
90 PRINT TAB<5);"2. PRINT OF MEMBER* S" ; TAB <B) ; "DUES STATUS" 
100 PRINT TAB(5);"3. PRINT OF NAMES AND" ; TAB <B) ; "TELEPHONES" 
110 PRINT TAB(5>j"4. PRINT IN CHECKLIST" ; TAB (8) ; "FORMAT" 
120 PRINT 

130 PRINT "ENTER OPTION NUMBER DESIRED" 
140 INPUT 

150 REM «*«»«««««««««««««« ENTRY OF NUMBER TO PRINT **«««««««««« 

160 Nl=3 

170 READ N2,D 

180 REM »««*«««««t««*««*t* PRQCESSINQ STARTS 4:»«««t»«t«»««*t»*«« 

190 PRINT "POSITION PAPER NOW" 
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200 INPUT G« 
210 PRINT :::::: 
220 FOR 1=1 TO M 
230 READ m 

240 IF N*="END" THEN 600 
250 READ T«,A1$,A2«,P 
260 IF 0=1 THEN 370 
270 IF 0=2 THEN 450 
280 IF 0=3 THEN 530 

290 REM «««««««««««««««*«« OPTION 4 »*«»««««««««««««««««««««$««« 

300 IF lOl THEN 330 

310 PRINT "CHK"; TAB <8); "NAME/ADDRESS"; TAB (36); "TELEPHONE" 

320 PRINT " 

330 PRINT "< ) ";N« 

340 PRINT TAB(8)5Al«;TAB(36)jA2«sTAB(8)sT* 
350 PRINT 
360 GOTO 580 

370 REM t1f.t****t**.*****t** OPTION 1 ««i|t«]|[«««««»«»«*««««««««««*«« 

380 PRINT N« 

390 PRINT Al* 

400 PRINT A2« 

410 FOR K=Nl-<-l TO N2 

420 PRINT 

430 NEXT K 

440 GOTO 580 

450 REM »««*«**i|c«««««*«<c«« OPTION 2 «*«««««*«««««*«««««»«««««t«t 

460 IF lOl THEN 490 

470 PRINT " NAME"; TAB < 20) ; "OWED" 

480 PRINT " " 

490 T1=D-P 

500 T2=T2+T1 

510 PRINT N«;TAB<20);T1 

520 GOTO 580 

530 REM *t««*««««««««««*««« OPTION 3 ««««««««*««««««*««««««««»«« 

540 IF lOl THEN 570 

550 PRINT "NAME";TAB<20) I "TELEPHONE" 

560 PRINT " 

570 PRINT N«;TAB<20)sT« 
580 NEXT I 

590 REM ««««««««»*««)|[«««»*««««i|t««i|c«*««««««»tt«««««««*«««»««t«««« 
600 REM ««««»««*»««««»«««» TERMINATION POINT «*»«»»««»»«»«««««»« 

610 IF 0O2 THEN 640 

620 PRINT TAB<20);" " 

630 PRINT TAB <5); "TOTAL OWED ";TAB<20)jT2 
640 PRINT 

650 PRINT I-l;" RECORDS WERE PRINTED" 
660 PRINT 
670 PRINT 
680 STOP 

690 REM «*«««««««««««««««»«)|[«««««««*«««««««*«*«««««««««««**«««««« 
700 REM EXAMPLE DATA FORMATION FOLLOWS******* 

710 REM t******************************************************** 

720 DATA 6,15 

730 DATA JOHN D. DOE, 243-1234 
740 DATA 5SS SMOKE Y DRIVE 
750 DATA "6R0T0N,MASS 87878" 
760 DATA 12.00 

770 DATA JOSEPH R. WESTONBY, 345-2345 

780 DATA 456 EASERLY ROAD 

790 DATA "TAYLORSVILLE,MAINE 23234" 

800 DATA 11 

810 DATA END 
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>RUN 



FOUR OPTIONS flRE^flVfi ILflBLE 

1. PRINT IN MfilLING 
LABEL FORMflT^^^,^ 

2. PRINT OF MEMBER'S 
DUES STATUS 

3. PRINT OF NAMES AND 
TELEPHONES . . 

4. PRINT IN CHECKLIST 
FORMAT 

ENTER OPTION NUMBER DESIRED 

POSITION PAPER NOW 

? 



JOHN D. DOE 

555 SMilKE? DRIVE, 

SROTONfMASS 87878 



JOSEPH R. WESTDNBY 
?i§LEgi§fl:J:E?Sg?NE 23234 



2 RECORDS WERE PRINTED 



>RUN 

FOUR OPTIONS ARE AVAILABLE 

1. PRINT IN MAILING 
LABEL FORMAT 

2. PRINT OF MEMBER'S 

3. gk!§T^5?^HI«ES RND 

4. ilVS?"?H^SHECKLIST 
FORMAT 

ENTER OPTION NUMBER DESIRED 

^oilTION PAPER NOU 

? 



NAME E^E?, 

JOHN D. DOE 3 
JOSEPH R.UESTONBY 4 



TOTAL OWED 7 
RECORDS WERE PRINTED 



>RUN 



FOUR OPTIONS ARE^AVAI LABLE 
1. PRINT IN MAILING 

LABEL EDRnai«^«>« 

NT OF, MEMBER'S 

S STATUS 

RINT OF NAMES AND 



ELEPHONES 



RINT_TN CHECKLIST 



ENTER OPTION NUMBER DESIRED 

PoilTION PAPER NOW 

? 



NAME _ _TELEPHONE 

JOHn'oT'dDe'"!" 243-1234 
JOSEPH R. WESTONBY 345-2345 

2 RECORDS WERE PRINTED 
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>RUN 



FOUR nPTIDNS 
1 . P R I ^4 T I 
LABEL F 

2 . PRINT □ 
DUES ST 

3 . PRINT □ 
TELEPHO 

4 . PRINT I 
FDRMflT 

ENTER nPTION N 

PQSITIDN PAPER 

CHK NAMEx-AD 
TELEPHQ 



ARE^AVAILABLE 
H MAILING 
□ R M A T 

F^MEMBER 'S 
ATUS 

F NAMES AND 
N CHECKLIST 

UMBER DESIRED 

NOU 
gRESS 



< > JOHN D. 

5 5 5 S M □ 

6 R T □ N , 
243-123 

< > JOSEPH 

456 EAS 

TAYLDRSVILLE, M 
345-234 



DDE 
KEY^DRI VE 
MASS 87878 
4 

R. WESTQNBY 
ERLY ROAD 

AINE 23234 



RECORDS WERE PRINTED 



MAJOR SYMBOL TABLE - CLUB LISTS 



NAME 


• • 


DESCRIPTION 


M 


* • 


MAXIMUM NUMBER OF DATA READS 





* f 


OPTION NUMBER 


Nl 


* • 


LINES IN EACH ADDRESS 


N2 


• * 


LINES TO PRINT FOR EACH ADDRESS 


D 


* • 


REQUIRED DUES FOR PERIOD 


N$ 


• * 


NAME 


T$ 


* • 


TELEPHONE 


Al$ 




ADDRESS LINE 1 


A2$ 


• * 


ADDRESS LINE 2 


P 


• • 


DUES PAID FOR PERIOD 


Tl 


• • 


DUES OWED 


T2 




TOTAL DUES OWED - ALL 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION : 


TAB 


« • 


FORMATS PRINT LINES 
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TABLE OF CONTENTS 



Description 

This program can satisfy a number of school, hobby, and home needs. 
Witii a little tiiought, it can be applied to everything from creating out- 
lines for school to recording the contents of your program cassettes. 

Functions of the Program 

The program will either locate and print specific items from the data 
items or produce a formatted listing with user-controlled indentation. 

Instructions for Use 

Determine the level number (for indentation) for each of the items, and 
enter the information prior to running the program. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The form for data entry is: 

Item level. Item, Page number/Location 
Note the END card. 

Output Description 

See example provided. Output is produced with indentation based upon 
five spaces multiplied by the level number supplied with the item. 



10 CALL CLEAR 

20 REM TABLE OF CONTENTS (LOCATOR) PROGRAM 

30 REM DATA INITIALIZATION *«*««*«««««««««« 

40 Tl=20 
50 T2=20 
60 M=1000 

70 PRINT "SHALL I PRINT ALL ENTRIES": "<Y OR N)?" 
80 INPUT M 
90 PRINT 

100 IF A*="Y" THEN 130 

110 PRINT "ENTER THE ITEM TO SEARCH FOR" 

120 INPUT X$ 

130 PRINT 

140 PRINT 

150 PRINT 

160 PRINT 

170 PRINT TAB (3); "ITEM"; TAB <T1); "LOCATION" 

ISO PRINT " " 

190 REM 

200 REM «»«»«i|c««««]|c«««*««««««»*i|c»*»«««»«|:*«]|[««««««««««««««««««t« 
210 REM **t**t***t*t*t**t* PR0CESSIN6 AREA ««««»4c»««»««»««««*«»tc 

220 FOR 1=1 TO M 

230 READ T 

240 IF T=0 THEN 510 

250 READ I$,R$ 

260 IF TOl THEN 300 

270 S1*=I» 
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280 S2«°R« 
290 Tl=20 

300 IF A«<>"Y" THEN 370 
310 PRINT TAB(2>;I«; 
320 IF R*=:"" THEN 350 
330 PRINT TAB(Tl);"- ";R$ 
340 Tl=20 
350 PRINT 
360 GOTO 490 
370 IF TOl THEN 390 
380 PRINT 

390 IF I*<>X« THEN 490 
400 PRINT TAB<2);S1«; 
410 IF S2*="" THEN 440 
420 PRINT TAB<T2);"- ";S2*; 
430 IF T"l THEN 480 
440 PRINT 

450 PRINT TAB(T*1);I«; 

460 IF R*«"" THEN 480 

470 PRINT TAB<Tl)j"- ";R«; 

480 PRINT 

490 Tl=23 

500 NEXT I 

510 REM ««««««««*«*««««««« PROGRAM TERMINATION POINT ««««*«««««« 

520 PRINT 
530 PRINT 
540 PRINT 
550 STOP 

560 REM ***t**t*t*t***t**t$it*t*t*t*ttt*****«ttttttt**tt***tt**t* 
570 REM «««««««»«««««««««« DATA ENTRIES FOLLOW «»««»««««««««««»t 

580 DATA 1,TAPE 1,RACK 1 

590 DATA 2, FINANCIAL PROGRAMS, 

600 DATA 3, CHECKBOOK BALANCE, 132 

610 DATA 3, HOUSEHOLD EXPENSES, 240 

620 DATA 3, INTEREST PROJECTIONS, 356 

630 DATA 3, STOCK ANALYSIS, 762 

640 DATA 2, TUTORS, 

650 DATA 3, MATH ADDITION, 850 

660 DATA 3, MATH SUBTRACTION, 1000 

670 DATA 1,TAPE 2, RACK 1 

680 DATA 2, KITCHEN, 

690 DATA 3, DIET, 10 

700 DATA 3, DIET PLANNING, 457 

720 DATA 3, SCHEDULES, 25 

730 DATA 1,TAPE 3, RACK 2 

740 DATA 3, DIET, 123 

750 DATA 



>RUN 

SHALL I PRINT ALL ENTRIES 
(Y OR N>? 
? V 



ITEM LOCATION 



TAPE 1 - RACK 1 

FINANCIAL PROGRAMS 
CHECKBOOK BALANCE - 132 

HOUSEHOLD EXPENSES - 240 

INTEREST PROJECTIONS - 356 

STOCK ANALYSIS - 762 

TUTORS 

MATH ADDITION - 850 
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MATH SUBTRACTION - 1000 

TAPE 2 - RACK 1 
KITCHEN 

DIET - 10 

DIET PLANNING - 457 

SCHEDULES - 25 

TAPE 3 - RACK 2 



MAJOR SYMBOL TABLE - TABLE OF CONTENTS 

I 1 

I NAME DESCRIPTION I 

I 1 

I Tl TAB CONTROL USE I 
I T2 TAB CONTOL USE I 
I ITEM TO SEARCH FOR I 
IT NUMBER OF SPACES TO TAB - IN I 
I I» ITEM IN I 
1 Rt PAGE NUMBER/REFERENCE LOCATION IN I 
I 1 

FUNCTIONS USED 

I 1 

I NAME •* DESCRIPTION I 

I 1 

I TAB FORMATS PRINT LINES I 
I 1 
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6 




Utility Bill Analysis 

Health Records 

Bulletin Board 

School Grade Recording 

Achievement Recording 

Calendars 

Multiple Prints 

Paper Route— Basic Version 

Paper Route— Extended Version 

Weight Control 

Household Inventory 



178 



UTILITY BILL ANALYSIS 



Description 

The rising cost and dwindling supply of energy indicates the need for 
careful control and analysis of energy usage. This program was designed 
to assist with these tasks. 

Functions of the Program 

The program accepts periodic readings of any utility meter and com- 
putes daily use and cost information. Totals and averages for the period 
are produced after all data items have been processed and printed in a 
tabular form. 



Instructions for Use 

Determine the unit cost of the energy use from your statement. Read 
the meter and enter the information to the program, as frequently as 
possible. Daily readings are best for thorough interpretation of the 
results. 



Data Entry 

All data is entered as DATA statements. 



Data Formats 

The first record provided is the cost per unit of the item. The second 
and succeeding records are of the form: 

Date of reading, Meter reading 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM UTILITY ANALYSIS PROGRAM 

30 REM ««»<«««*»«««*«««*«« DATA INITIALIZATION «**«<«*»«««*«»«« 

40 M=1000 

SO REM ««««««««««*««*««««*»»*«*»*««t««**«»«««»«»«*«**«t«»**«««* 
60 REM »««»««»««»»«««««*«« PROCESSING AREA «»«»*»«*»«»>«*»««««« 

70 PRINT 
80 PRINT 
90 PRINT 
100 READ C 
110 READ D,S 

120 PRINT "INITIAL READING WAS";S;"ON DAY";D 
130 PRINT "COST PER UNIT IS ";C 
140 PRINT 

ISO PRINT "DATE" J TAB < 17) J "USE COST" 

160 PRINT "READ";TAB<6);"READ";TAB(ll);"USED"jTAB(17> j"THIS DAY" 

170 PRINT " ";TAB<6)»" "»TAB<11)|" "|TAB<17)|" " 

180 T2=S 
190 D2=D 

200 FOR 1=1 TO M 

210 N=l 

220 READ D 

230 IF D=0 THEN 380 
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240 IF D<D2 THEN 260 

250 N=D-D2 

260 D2=D 

270 READ R 

280 T0=R-T2 

290 T1=T0*C 

300 PRINT D;TAB<3);R;TAB(ll)jT0|TAB(16)jTl| 

310 IF N=l THEN 330 

320 PRINT "("|STR$<N>J DAYS)"! 

330 T2=R 

340 T3=T3+Tl 

350 N1=N1+N 

360 PRINT 

370 NEXT I 

380 REM 

390 REM «»««»»»»««»«»«»»»» PROGRAM TERMINATION POINT »<«»»««««»« 

400 T4=R-S 

410 PRINT TAB(11)|" "jTAB(17)|" " 

420 PRINT " TOTALS" » TAB (10) I T4| TAB (16) J T3 
430 PRINT 

440 PRINT "«««»«««««»«««»«»»»««««««««»" 

450 PRINT "FOR" ;N1; "DAYS" 

460 PRINT "AVERAGE DAILY USE WAS"j INT( (T4/N1) »100+.S) /lOO 

470 PRINT "AVERAGE DAILY COST WASs INT( (T3/N1 ) «100+.5) /lOO 

480 PRINT "»«»*««««»«»»»»««»«««»««»«««" 

490 PRINT 

SOO PRINT 

510 GOTO 510 

520 REM 

530 REM »«]|t««]K«««««««««««« DATA ENTRY FOLLOWS »»»»»»«»««»««««»»» 

540 DATA .025 

550 DATA 24,1500 

560 DATA 25,1590 

570 DATA 26,1700 

580 DATA 27,1800 

590 DATA 28,2200 

600 DATA 30,2600 

610 DATA 1,3000 

620 DATA 2,3100 

630 DATA 3,3200 

640 DATA 5,3500 

650 DATA 



COST PER UNIT IS 



DATE 
READ 

~25~ 

26 
27 
28 
30 



READ USED 



1 590 
1700 
1800 
2200 
2600 
DAYS 
3000 
3 100 
3200 
3500 
DAYS 



TOTALS 



90 
1 1 
100 
400 
400 

400 
100 
100 
300 



2000 



02S 

USE COST 
THIS DAY 

"iTii 

2. 75 
2 . 5 

} 
1 

1 

2 . 5 
2 . 5 
7 . 5 



50 



FOR 1 1 DAYS 

9X^595^ S9II-X USE URS isi.si 

AVERAGE DAILY COST WAS: 4.54 
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MAJOR 


SYMBOL TABLE - UTILITY BILL ANALYS: 


NAME 


« * 


DESCRIPTION 


M 


« • 


MAXIMUM NUMBER OF DATA READS 


C 


* * 


COST PER UNIT ] 


D 


• • 


INITIAL READING DAY : 


S 


• • 


INITIAL READING J 


K 


• • 


READING ] 


TO 




UNITS USED ] 


Tl 


• * 


COST PER DAY ] 


Nl 


« * 


DAY COUNT 


T4 


• • 


TOTAL USE 


T3 


• • 


TOTAL COST 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


' TAB 


• • 


FORMATS PRINT LINES 
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HEALTH RECORDS 



Description 

Maintaining family health histories and immunization information is 
frequently a source of difficulty in many households. With this program 
to assist you, the task may be sunplified. 

Functions of the Program 

The program reads the various data items provided and prints either all 
items or only those for the specified individual. Note that the processing 
of the data for the two printing options has been totally separated for 
your ease of interpretation and modification, if desired. 

Instructions for Use 

Data items should be provided for illnesses and immunizations prior to 
running the program. New items should be added as they occur. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format for all data is: 

Individual's name, Month-Day-Year, Type code. Description 
Type codes are specified during data initialization. 

Output Description 

See examples provided. Two forms of output are available. 



10 CALL CLEAR 

20 REM HEALTH RECORD RECORD I Ne PROGRAM 

30 REM «»«««««««««««««*»»« DATA INITIALIZATION 

40 Ml=3 

SO DIM C0«(3) 

60 DIM Cl«(4} 

70 C0*(1)="IM" 

80 C1«<1)="IMMUNIZATI0N" 

90 C0$(2)='"V" 

100 C1«<2)="VISITED DOCTOR" 

110 C0$<3)«»"IL" 

120 Cl$ (3)=" ILLNESSES" 

130 Cl*(4)«" " 

140 M=1000 

150 PRINT "SHALL I PRINT ALL OF THE"s "ITEMS <Y OR N)"; 

160 INPUT A$ 

170 IF A*<>"N" THEN 240 

ISO PRINT "ENTER THE NAME TO SELECT" 

190 INPUT X« 

200 PRINT 

210 PRINT 

220 PRINT 

230 GOTO 500 

240 PRINT* "WOULD LIKE THE RECORDS IN": "ENTRY dRDER <E) OR SORTED <8)" 
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250 INPUT Al« 
260 PRINT 
270 PRINT 
280 PRINT 

290 IF A1*»"S" THEN 6B0 

300 REM t**t*ttt*t*ttttttt*****tttttttt*tttt*tt****t*tt*ttttt**t 
310 REM »«««*««t*«« PRINT OF ALL ITEMS IN ENTRY ORDER *t**tt*t*t 
320 PRINT "NAME" j TAB ( 17) ; "DATE" ; TAB <45) ; "DESCRIPTION" 

330 PRINT " " 

340 REM 

350 FOR lol TO M 
360 READ N« 

370 IF N*="END" THEN 450 

380 READ D«,C«,I« 

390 FOR K=l TO Ml 

400 IF C«=CO*<K)THEN 420 

410 NEXT K 

420 PRINT N«;TAB(17};D«iTAB<28);Cl«(K);TAB(4S);I«}t 
430 NEXT I 

440 REM tt**t**tt**tt*tt*ti*****t*ttt*tttt***t*t*«ttttttttt**t**t 
450 REM «»«»«»««««««««*»«« TERMINATION POINT «»«««*««|[«««««««««« 

460 PRINT 
470 PRINT 
480 STOP 

490 REM ****«««««««***tt*t«lc**«*««««**«**t«****««««**««****««**« 
500 REM «*«t«««««*»***«««« PRINT OF SELECTED RECORDS «««*««««««t[ 

510 PRINT "NAME" ; TAB < 17); "DATE" J TAB <45); "DESCRIPTION" 

520 PRINT " " 

530 REM 

540 FOR 1=1 TO M 
550 READ N« 

560 IF N*="END" THEN 450 

570 READ Dt,C*fl* 

580 IF NSOXS THEN 650 

590 FOR K«l TO Ml 

600 IF C«»CO«(K)TKEN 640 

610 NEXT K 

620 IF J>1 THEN 640 

630 N*=" " 

640 PRINT N«;TAB<17);D$;TAB(28);Cl«(K);TAB(45)}I«:i 
650 NEXT I 
660 GOTO 450 

670 REM *»»««t«*******«**|[*«««««*«««««««««t«**««««*«««««««««*t«* 
680 REM tt*ttttt*t PRINT OF ITEMS IN SELECTED ORDER ««»»«»«««««> 

690 PRINT "NAME"; TAB (17); "DATE"; TAB (45); "DESCRIPTION" 

700 PRINT " " 

710 REM 
720 1=1 

730 FOR J=l TO M 
740 READ N« 

750 IF N«=»"END" THEN 940 
760 READ D«,C«,I$ 
770 IF J>I THEN 880 
780 IF J<I THEN 930 
790 S«=N« 

800 IF 1=1 THEN 880 

810 RESTORE 

820 FOR K=l TO J 

830 READ N«,D«,C«,I« 

840 IF S«<>N« THEN 860 

850 C=C+1 

860 NEXT K 

870 IF Ol THEN 940 

880 IF N«<>S» THEN 930 

890 FOR K=l TO Ml 

900 IF C«=CO»(K)THEN 920 

910 NEXT K 

920 PRINT S«;TAB<17>;D«;TAB(28>jiCl^<K);TAB<4S);I«:i 
930 NEXT J 
940 RESTORE 
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950 C=0 

960 IF I>1 THEN 980 
970 M=J-1 
980 PRINT 
990 1=1+1 

1000 IF I<=M THEN 730 
1010 GOTO 450 

1020 REM *«****«««**«««««*«««*«««*«««*«**(*««««««««««*««««««««««« 
1030 REM DATA ENTRIES FOLLOW «]|i««*«*«««»«»»«*»t 

1040 DATA ED, JUL 1 1967, IM, DPT #1 SHOT 
1050 DATA ED, AUG 1 1967, I M, DPT #2 SHOT 
1060 DATA JIM, SEP 1 1967, I M, TETANUS SHOT 
1070 DATA ED, NOV 1 1967, I M, DPT #3 SHOT 
1080 DATA JIM, JAN 1 1968, IL, CHICKEN POX 
1090 DATA ED, JAN 14 1968, IL, CHICKEN POX 
1100 DATA JEAN, JAN 15 1968, IL, CHICKEN POX 
1110 DATA JIM,JUN 1 1968, V, CHECK-UP 
1120 DATA END 



>RUN 

SHALL I PRINT ALL OF THE 
ITEMS <Y OR N)? Y 
WOULD LIKE THE RECORDS IN 
ENTRY ORDER (E) OR SORTED (S> 
? E 



NAME 


DATE 




DESCRIPTION 


ED 


JUL 1 1967 


IMMUNIZATION 


DPT #1 SHOT 


ED 


AUB 1 1967 


IMMUNIZATION 


DPT #2 SHOT 


JIM 


SEP 1 1967 


IMMUNIZATION 


TETANUS SHOT 


ED 


NOV 1 1967 


IMMUNIZATION 


DPT #3 SHOT 


JIM 


JAN 1 1968 


ILLNESSES 


CHICKEN POX 


ED 


JAN 14 1968 


ILLNESSES 


CHICKEN POX 


JEAN 


JAN 15 1968 


ILLNESSES 


CHICKEN POX 


JIM 


JUN 1 1968 


VISITED DOCTOR 


CHECK-UP 


>RUN 




SHALL I PRINT ALL OF THE 


ITEMS (Y OR N)? 


N 


ENTER THE NAME 


TO SELECT 


? JIM 




NAME 


DATE 




DESCRIPTION 


JIM 


SEP 1 1967 


IMMUNIZATION 


TETANUS SHOT 
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JIM JAN 1 1968 

ILLNESSES CHICKEN POX 

JIM JUN 1 1968 

VISITED DOCTOR CHECK-UP 



MAJOR SYMBOL TABLE - HEALTH RECORDS 



NAME 


• • 


DESCRIPTION J 


C0$( 




MASTER CATEGORY CODE ARRAY 


Cl$( 




MASTER CATEGORY DESCRIPTION ARRAY 


M 


• • 


MAXIMUM NUMBER OF DATA READS : 


Xf 


• • 


NAME TO SELECT 


N« 


• • 


NAME IN 


D« 


• • 


DATE IN : 


If 


• • 


DESCRIPTION IN 


C$ 


• • 


CATEGORY CODE IN 


FUNCTIONS USED 


NAME 




DESCRIPTION 


TAB 


• • 


FORMAT PRINT LINES 


[ DIM 


• • 


SINGLE DIMENSION ARRAYS 
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BULLETIN BOARD 



Description 

A computer never forgets. This program allows the storage of notes 
and reminders for family members. 

Functions of the Program 

The program searches the data items and identifies messages and the in- 
dividual they they are directed to. It prints the messages when requested. 

Instructions for Use 

Messages must be recorded in DATA statements and deleted as their 
usefulness passes. Avoid the use of commas (,) in the message text. 

Data Entry 

Ail data is entered by means of DATA statements. 
Data Format 

All messages are entered in the following form: 

Individual directed to, Message contents, Message initiator 

Output Description 

See example provided. Message is free-form, without restrictions (except 
for potential formatting problems caused by commas). 



10 CALL CLEAR 

20 REM BULLETIN BOARD PROGRAM 

30 REM «»»»»«»««»«$««*«»» DATA ZNXTXALXZATZON ««»»«*«»<«»»««««« 

40 M=1000 

50 REM «»*«»»«*»|[«««*««««« PR0CE8SINB AREA »«*««»«««»»<««»««««« 

60 FOR lal TO M 
70 READ T« 

80 IF T»="END" THEN 230 
90 IF T»<>"»" THEN 240 
100 READ I« 

110 PRINT "MESSAGE FOR "fl^g" SHOULD"! "I PRINT IT<Y OR N)"! 

120 INPUT M 

130 IF A»<>"Y" THEN 70 

140 PRINT 

150 READ T« 

160 IF T«="END" THEN 230 
170 IF T»<>"«" THEN 220 
laO PRINT 

190 PRINT "END OF MESSAGE - I'LL LOOK"! "FOR OTHERS" 

200 PRINT 

210 GOTO 100 

220 PRINT T»|" "I 

230 GOTO 130 

240 NEXT I 

230 REM «««««««««««»««»»«» PROGRAM TERMINATION POINT ttttttttt** 

260 PRINT 
270 PRINT 
280 STOP 

290 REM «««««««»«»»«««««t**«*««»«*«t«««»«»*«««*««»«t«t»»**««t»t« 
300 REM »«»«*»»»«»«»»»»»«« DATA ENTRIES FOLLOW »»«««<««««««««««« 
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310 DATA «, JIM, MOM HAS BONE TO THE STORE BE BACK AT 6,6E0RSE 
320 DATA «, JOAN, FEED THE DOG BEFORE YOU LEAVE TKE HOUSE 
330 DATA AFTER SCHOOL. HER FOOD IS IN THE PANTRY 
340 DATA MOM 
350 DATA «,ALL, 

360 DATA I HAVE GONE TO THE HARDWARE STORE BE BACK AT 6 
370 DATA DAD 
380 DATA END 



>RUN 
MES 



MESSflSE FOR^ JIM SHOULD 
I PRINT ITCY OR N>? Y 



MOM HAS GONE TO 
BACK flT_6_GEBRG 



HE STORE BE 



^ND OF MESSAGE - I'LL LOOK 
FDR OTHERS 

MESSAGE FOR JOAN SHOULD 
I PRINT IT<Y OR N>? N_ 
MESSAGE FDR ALL SHOULD 
I PRINT IT<Y OR N>? Y 



I HAVE GONE TO THE HARDWARE 
STORE BE BACK AT 6 DAD 



MAJOR SYMBOL TABLE - BULLETIN BOARD 



NAME 


DESCRIPTION 


M 


MAXIMUM NUMBER OF DATA READS 


T$ 


CODE/TEXT 


It 


NAME OF MESSAGE RECIPIENT 
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SCHOOL GRADE RECORDING 



Description 

This program maintains course grade information for the review of 
academic status between report cards and provides continual progress 
analysis. 

Functions of the Program 

This program will print all information entered (m course sequence) or 
will print the grades associated with a specified course only. Courses 
and grading devices are mitiated prior to reading the grade data items. 
Note the sample data provided. 

Instructions for Use 

Determine the number of courses to be monitored, and enter this num- 
ber and the course names as the first data record. Following this, 
determine the number of grading devices (tests, homework, etc.) that 
will be recorded, and enter this information as the second data record. 
Grades for course activities can then be entered and reviewed as they 
occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

The first two data records initialize the course and grading device in- 
formation. Their form is: 

Number of courses. Course code. Course name, . . . 
Number of devices. Device code. Device name, . . . 

For each of these forms the codes and names are repeated for the 
number of times specified. Course grade information can then be en- 
tered in the form: 

Course code, Device code. Number score. Letter grade. Date 

Output Description 

See example provided. 

Suggested Enhancements 

If your school system is consistent in its grading policies, an ideal 
enhancement would be the computation of current averages during 
the semester. 
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10 CALL CLEAR 

20 REM SCHOOL GRADE RECORDING PROGRAM 

30 REM «»»««««««««»«««»»«« DATA INITIALIZATION tttt*ttt*t*ttt*t 

40 DIM CS<20) 
50 DIM Ci«(20) 
60 DIM T«<20) 
70 DIM Tl«(20> 

80 PRINT "SHALL I PRINT ALL ENTRIES": "<Y OR N>"; 
90 INPUT A» 
100 P=l 
110 K=l 

120 IF A*<>"N" THEN 240 

130 PRINT "ENTER THE COURSE TO PRINT" 

140 INPUT C3« 

150 READ N 

160 FOR 1=1 TO N 

170 READ C«(I),C1«(I) 

180 IF C3*=C1*<I)THEN 230 

190 NEXT I 

200 PRINT "COURSE NOT FOUND" 

210 RESTORE 

220 GOTO 80 

230 K=I 

240 PRINT 

250 RESTORE 

260 PRINT 

270 PRINT 

280 REM «««««««««««««»««»« PROCESSING AREA t«»««t«««t««t««»«««« 

290 READ N 

300 FOR 1=1 TO N 

310 READ C«(I),C1«(I> 

320 NEXT I 

330 READ N2 

340 FOR 1=1 TO N2 

350 READ T«(I),T1«(I) 

360 NEXT I 

370 PRINT C1»{K) 

380 READ C0« 

390 IF CO«="END" THEN 470 

400 READ T0«,S,6«,D« 

410 IF CO$<>C«(K)THEN 380 

420 FOR J=l TO N2 

430 IF T«<J)=TO$ THEN 450 

440 NEXT J 

450 PRINT TAB<P> jSj"(";G«;") ";Tlt<J)|'' - ";D« 

460 GOTO 380 

470 PRINT 

480 RESTORE 

490 PRINT 

500 K^K+l 

510 IF A«<>"Y" THEN 530 
520 IF K<=N THEN 280 

530 REM «««««««««««««««««* PROGRAM TERMINATION POINT «*«««*«**« 
540 PRINT 
550 PRINT 
560 STOP 

570 REM **«*««*««*«««***«««««««**««««««*««««»|[»««*t«t*lc«******«* 
580 REM ««»«««««*««*«****<: DATA ENTRIES FOLLOW *«**««*«««««««««« 

590 DATA 5, E, ENGLISH, B, BIOLOGY, H, HISTORY, F, FRENCH, A, ALGEBRA 
600 DATA 3, H, HOMEWORK, T, TEST, Q, QUIZ 

610 REM «««««»«««»«»»««««« GRADE DATA FOLLOWS «««t«*«««»«««««««t 

620 DATA E,H,78,C,JUNE 8 
630 DATA F,T,89,B+,JUNE 9 
640 DATA E,H,84,B, JUNE 11 
650 DATA B,T,95,A, JUNE 12 
660 DATA H,H,8S,B, JUNE 14 
670 DATA END 
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^fHR^U JjPRINT ALL ENTRIES 



EN6LISH 
2§ SQ^ HSMEWDRK - JUNE ? 

84 <B> HDMEWDRK - JUNE 11 

BinLQGY 
95 <fi> TEST - JUNE 12 

HISTORY 

85 <B> HOMEWORK - JUNE 14 



FRENCH 
89 <B+> TEST - JUNE 9 



RL6EBRR 



'P^bh S>?''S^^ ENTRIES 
I^eIIlIsH PRINT 



ENGLISH 



MAJOR 

I 

I NAME 

I 

I C$( > 
Cli( 
T$( ) 
Tl*( 
P 
K 

C3« 
N 

N2 
TO* 

S 

Gt 
D$ 
C0« 



SYMBOL TABLE - SCHOOL GRADE RECORDING 



DESCRIPTION 



MASTER COURSE CODE ARRAY 
MASTER COURSE NAME ARRAY 
MASTER TYPE CODE ARRAY 
MASTER TYPE DESCRIPTION ARRAY 
TAB CHARACTER 
POINTER TO SELECTED COURSE 
COURSE TO PRINT 
NUMBER OF COURSES RECORDED 
NUMBER OF TYPES RECORDED 
TRANSACTION TYPE IN 
TRANSACTION NUMBER GRADE IN 
TRANSACTION LETTER GRADE IN 
TRANSACTION DATE IN 
TRANSACTION COURSE IN 



FUNCTIONS USED 



I NAME 

I 

I TAB 
I DIM 
I 



DESCRIPTION 



FORMAT PRINT LINES 
SINGLE DIMENSION ARRAYS 
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ACHIEVEMENT RECORDING 

Description 

This program monitors progress toward satisfying the requirements 
necessary to achieve a goal. An ideal application is recording progress 
toward the completion of Scouting requirements for progression to the 
next rank. 

Functions of the Program 

The program determines the number of individuals (or groups) that 
will be recorded. Following this, the achievement requirements and the 
individual's status on each item is read, interpreted, and printed. 

Instructions for Use 

Enter the number of individuals recorded, followed by their names. 
Achievements and requirements are then determined and entered, fol- 
lowed by a status indicator for each individual. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

1. The first data item initializes the individual's names: 

Number of individuals recorded, Individual's names, — 

2. Each achievement (goal) is then identified by the form: 

*, Achievement name 

3. The requirements for attaining each goal and the status of progress 
toward that goal is entered in the following form: 

Requirement, Status codes, (one for each individual) 

Output Description 
See example provided. 

Suggested Enhancements 

The status indicators are ideal candidates for storage on disk or tape- 
storage devices. 

1 CALL CLEAR 

20 REM ACHIEVEMENT RECORDING PROGRAM 

30 REM *««*«««»«««««««««*« DATA INITIALIZATION **««««««««»»»«*t 

40 DIM N$(10) 
50 DIM S$<10) 
60 M° 10000 
70 READ N 
80 FOR 1=1 TO N 
90 READ N$(I> 
100 NEXT I 
110 PRINT 
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120 PRINT 
130 PRINT 

140 REM t$*tt***t*****t**t PROCESSING AREA *»«««»«»«««««««**««*« 

150 PRINT "ACHIEVEMENT/REQUIREMENT"; 8 1 

160 FOR K=l TO N 

170 PRINT TAB((K-l)«7+30);Ni6(K)| 

leo NEXT K 

190 PRINT 

200 PRINT " "I 

210 FOR K=l TO N 

220 REM 

230 NEXT K 

240 PRINT 

250 FOR I°l TO M 

260 READ T« 

270 IF T«="END" THEN 420 

280 IF Tt<>"«*' THEN 340 

290 READ A« 

300 PRINT 

310 PRINT A4 

320 PRINT 

330 GOTO 410 

340 PRINT T«; 

350 FOR K=l TO N 

360 S«(K>=" " 

370 READ S«(K) 

380 PRINT TAB<<K-l)*7+30) j"<"jS*<K>r')"8 
390 NEXT K 
400 PRINT 
410 NEXT I 

420 REM «««»»«t«t»>««t««*t PROGRAM TERMINATION POINT »*«»*««««** 

430 PRINT 
440 PRINT 
450 STOP 

460 REM «**««***«*«*«««*«*««««***t«^***«««*t***«*««««««««*«««««tt 
470 REM »»«»*«»««««««**««« DATA ENTRIES FOLLOW *ttt*t*t***t*t**t 

480 DATA 3, JIM, CHUCK, JACK 

490 DATA *,OUTDOaRSMAN 

500 DATA BUILDING A CAMPFIRE 

510 DATA Y,N,Y 

520 DATA SWIMMING 3 LAPS 

530 DATA Y,Y,N 

540 DATA CAMPING OVERNIGHT 

550 DATA Y,Y,Y 

560 DATA *, CRAFTSMAN 

570 DATA BUILDING A BOOKCASE 

580 DATA N,N,N 

590 DATA REPAIRING A BENCH 

600 DATA Y,N,N 

610 DATA END 



>RUN 

ACHIEVEMENT/' REQUIREMENT 
JIM CHUCK JRCK 



□UTDOGRSMBN 
BUILDING gCflMPfJ^E 
SQlMMING 3 LRPS ' 
COgPING DyERNIGHT 



0:jfRNIGI^^^ 



<V> 
CRRFTSMflN 
BUILDING fi^BDDKC 
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MAJOR SYMBOL TABLE - ACHIEVEMENT RECORDING 

I 

I NAME DESCRIPTION 

I 

I N*< ) NAMES OF PEOPLE ENTERED 

I S$ COMPLETION CODE INDICATOR ARRAY 

I M MAXIMUM NUMBER OF DATA READS 

IN NUMBER OF PEOPLE RECORDED 

I Af ACHIEVEMENT 

I T$ CODE IN/TEXT 

I ' 

FUNCTIONS USED 
I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM *. SINGLE DIMENSION ARRAYS 

I 
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CALENDARS 



Description 

You'll never need to buy another calendar with this program that pro- 
duces calendars for any month or year in a form that permits writing in 
comments. 

Functions of the Program 

The program's functions are primarily directed toward the printing of a 
nicely formatted calendar. Each major printing function is separated into 
an independent module for clarity and your extension or modification. 

Instructions for Use 
Run the program. 

Data Entry 

Not applicable. The starting month and year, and the number of months 
to be printed, are entered in response to program requests. 

Data Format 
Not applicable. 

Output Description 

See example provided. The number of months printed is determined 
during the program's execution. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

10 CALL CLEAR 

20 REM CALENDAR PRODUCING PRDBRAM 

30 REM »#»»*«**««« OPEN STATEMENT FOR PRINTER FOLLOWS ««*»«»««« 
40 REM **» CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT »«« 
50 OPEN #1: "RS232.BA=9600.DA«B" 
60 REM ««««««««««««««««««« DATA INITIALIZATION 

70 N=0 V 

80 S0=0 

90 L0=0 

100 Ml=7 

110 M2=7 

120 M4=l 

130 DIM D0«<7) 

140 DIM N0<12) 

150 DIM M0$<12) 

160 READ D0*(1),D0*(2),D0«<3),D0*(4),D0*<S),D0«<6),D0$<7) 

170 FDR 1=1 TO 12 
180 READ MO*<I),NO<I) 
190 NEXT I 

200 PRINT "ENTER THE FIRST MONTH AND": "YEAR TO BE PRINTED I.E., JAN, 1980" 

210 INPUT M*,Y1 

220 PRINT "ENTER THE DAY OF THE WEEK": "THAT THE FIRST MONTH" » "STARTS ON" 

230 INPUT Dl$ 

240 PRINT "ENTER THE NUMBER OF MONTHS": "TO BE PRINTED I.E., 10" 

250 INPUT N 

260 PRINT "DO YOU WANT PAGE ALIBHMENT": " <Y OR N)?" 
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270 INPUT Al« 

280 IF A1«<>"Y" THEN 310 

290 PRINT "BEFORE THE PRINTING OF EACH MONTH A WILL APPEAR" 

300 PRINT "ALIGN TO THE TOP OF PAGE": "BEFORE PRESSING ENTER" 

310 FOR 1=1 TO 12 

320 IF M$<>MO* ( I ) THEN 340 

330 M4=I 

340 NEXT I 

350 FOR K=l TO 7 

360 IF D1«<>D0*<K)THEN 380 

370 S0=K 

380 NEXT K 

390 REM tt*t***t*t*tt******t$***tt*tt$*t**tttttt*tt*tttt****tttt 
400 REM ««*«««*«**«««*»»»« PROCESSING LOOP *««««««««****««*«««*tc 

410 FOR I2=M4 TO M4+N-1 
420 NO (2) =28 
430 Y=Y1 

440 IF INT<Y/4)<>Y/4 THEN 460 
450 NO (2) =29 
460 10=0 
470 M3=I2 

480 IF M3<=12 THEN 540 
490 M3=M3-12 
500 Y=Y1+1 

510 IF INT<Y/4)<>Y/4 THEN 530 

520 NO (2) =29 

530 GOTO 480 

540 IF S0=0 THEN 650 

550 GOSUB 720 

560 FOR J=l TO M2 

570 GOSUB 820 

580 IF N0(M3)<I0 THEN 640 

590 GOSUB 880 

600 GOSUB 1140 

610 GOSUB 1140 

620 LO=LO-fl 

630 NEXT J 

640 REM »«***««««««»*«*«*« PROGRAM TERMINATION POINT ««»««**«»«« 

650 IF S0O8 THEN 670 

660 50=1 

670 NEXT 12 

680 PRINT 

690 PRINT 

700 STOP 

710 REM SUBROUTINE FOLLOWS **»««*««*««««««««« 

720 REM tttttttm*********.* PRINTS HEADINGS ««»««««»«*«««««»««»«» 

730 IF A1*<>"Y" THEN 750 
740 INPUT X* 
750 PRINT #1 

760 PRINT #1:" ";M0«<M3);" "jY 

770 FOR 1=1 TO 7 

780 PRINT #1:" ";DO«<I);" "| 
790 NEXT I 
800 PRINT #1 
810 RETURN 

820 REM «*««*««««««««««»«« PRINTS SCHEDULE OUTLINE ««»«»«««««t«« 

830 FOR 1=1 TO Ml 

840 PRINT #1:"I 

850 NEXT I 

860 PRINT #1:"I" 

870 RETURN 

880 REM «*««*«***««**««««« PRINTS CALENDAR DAY LINE «*«*«««««««« 

890 FOR 1=1 TO Ml 
900 IF JOl THEN 930 
910 IF lOSO THEN 930 
920 10=1 

930 IF N0(M3)>=I0 THEN 970 
940 PRINT ttl:"I "; 
950 10=10+1 
960 GOTO 1090 
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970 IF I0>9 THEN 1050 
9B0 IF lOOO THEN 1010 
990 PRINT #1:"I "j 
1000 BDTO 1090 

1010 PRINT ttl:"I "5 10;" "5 

1020 10=10+1 

1030 S1=I+1 

1040 GOTO 1090 

1050 PRINT #1:"I ";I0;" 

1060 S1=I+1 

1070 10=10+1 

lOBO S0=I+1 

1090 NEXT I 

1100 PRINT #li"I" 

1110 L0=0 

1120 S0°S1 

1130 RETURN 

1140 REM «*««*«**««««««««* VERTICAL LINES *««««»«*»««*«»««*«»«««« 

1150 FOR I«=l TO Ml 

1160 PRINT #1:"I "; 

1170 NEXT I 

1180 PRINT ttl8"I" 

1190 RETURN 

1200 REM «»«**«*««««*«*««« DATA FOR INITIALIZATION **«««*««««»««« 

1210 DATA SUNj,MON,TUE,WED,THU,FRI,SAT 

1220 DATA JAN, 31, FEB, 28, MAR, 31, APR, 30, MAY, 31, JUN, 30 

1230 DATA JUL, 31, AUG, 31, SEP, 30, OCT, 31, NOV, 30, DEC, 31 

1240 REM **««**«««««««»««*]|c»«)|:««««««««]|[««««)|i|t»««i|:»t«t|:»»*«t«»««««« 

1250 CLOSE «1 



>RUN 
ENTE 
YERR 
JRN > 
2 DE 
ENTE 
THAT 
STAR 

DO Y 



R THE NUMBER^QF MONTHS 
E PRINTED I . E . » 10 

DU^^^^NT PAGE RLIGHMENT 



RE^THE PRINTING OF EACH 
H 9„'2.' WILL APPEAR 
ly-TO^THE TOP OF PAGE 



BEFDI 
MONTI 

AL I Gl . „ . ._ _. _. . , 
BEFORE PRESSING ENTER 



DEC 1983 

SUN MON TUE WED THU FRI SAT 

I I I I1I2I3 

4I5I6I7IBI9I10 

11 I 12 I 13 I 14 I 15 I 16 I 17 

IB I 19 I 20 I 21 I 22 I 23 I 24 

25 I 26 I 27 I 28 I 29 I 30 I 31 
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MAJOR SYMBOL TABLE - CALENDARS 



NAME 


• * 


DESCRIPTION 


N 


• • 


NUMBER OF MONTHS TO PRINT 


Ml 


• • 


MAXIMUM HORIZONTAL PRINT 


D0$( 


) • • 


DAY OF UEEK ARRAY 


N0( 


> 


DAYS IN MONTH ARRAY 


M0$< 


)«• 


MONTH NAME ARRAY 


M$ 


• • 


FIRST MONTH TO PRINT 


Yl 


• • 


FIRST YEAR TO PRINT 


Dl« 




DAY OF UEEK MONTH STARTS ON 


10 


* • 


DAY OF MONTH 


Y 


• • 


YEAR FOR PRINTING 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


INT 


• • 


CONVERTS NUMBER TO INTEGER 


DIM 


• • 


SINGLE DIMENSION ARRAYS 
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MULTIPLE PRINTS 



Description 

This program will assist in the solution of the problem associated with 
producing multiple copies of a single item. 

Functions of the Program 

The program accepts text from DATA items and prints the number of 
copies, and in the form, specified. 

Instructions for Use 

Format your mformation, and enter it as data prior to running the 
program. 

Data Entry 

All data is entered by means of DATA statements. 
Data Format 

The format for data entry is free-form. Note that commas will affect 
formatting. 

Output Description 

See example provided. The form, spacing, and number of copies is 
determined by your response to the program's questions. 



10 CALL CLEAR 

20 REM MULTIPLE LIST PROGRAM 

30 REM PROCESSING AREA ««*«««|:««««««««««««tc 

40 PRINT "HOW MANY COPIES OF THE ITEM" t "ARE TO BE PRINTED?" 
50 INPUT C 

60 PRINT "DO YOU WANT TO ALIGN TO TOP" I "OF PAGE BETWEEN PRINTS"i"<Y OR N)?" 

70 INPUT A« 

80 IF A*<>"Y" THEN ISO 

90 PRINT "ENTER THE NUMBER OF LINES"* "PER PAGE" 
100 INPUT LO 

110 PRINT "ENTER THE NUMBER OF SPACES FROM THE TOP FOR* PRINTING" 

120 INPUT S 

130 L=S 

140 GOTO 170 

150 PRINT "HOW MANY SPACES BETWEEN" : "PRINTS" 
160 INPUT S 

170 PRINT "ALIGN PAPER AND PRESS"! "ENTER (I'LL SPACE" ; S; : "SPACES) " 

180 INPUT G$ 

190 FOR J=l TO S 

200 PRINT 

210 NEXT J 

220 FOR 1=1 TO C 

230 READ T« 

240 IF T$="END" THEN 280 
250 PRINT T« 
260 L=L+1 
270 GOTO 230 

280 REM END OF A PRINT «*«««*««*«««««««««»»»« 

290 IF A*="Y" THEN 340 
300 FOR 3=1 TO S 
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310 PRINT 

320 NEXT J 

330 GOTO 380 

340 FOR J=L TO LO+S 

350 PRINT 

360 NEXT J 

370 L=S 

380 RESTORE 

390 NEXT I 

400 REN ttt*tt*t*tt**t***t*t*t**t*tttt*ttt*ttt**tttt**tt*t**t*t* 
410 REN »««**««*««««*****« PROGRAM TERMINATION POINT «»'««««««««< 

420 PRINT 
430 PRINT 
440 PRINT 
450 STOP 

460 REM ««««*««««)|c«««««««*i|(***««««««««**«i|c«**«**«««««««««««««*«« 
470 REM ««»««««««««t***«*« TEXT FOR PRINTING FOLLOWS t«»«*««*««t 

480 DATA " HERE IS THE TEXT THAT IS" 
485 DATA "TO BE PRINTED. I HAVE PLACED" 
490 DATA "IT IN QUOTES TO ALLOW THE" 

500 DATA USE OF COMMAS IN THE CONTENTS. THE DATA WILL BE ACCEPTED CORREC 

TLY (AS THIS 

510 DATA LINE IS IF I HAVEN'T USED ANY COMMAS. THE TEXT IS TERMINATED 
520 DATA "WITH A DATA END CARD, THIS IS THE LAST CARD IN THE PROGRAM." 
530 DATA END 



^HoH MANY COPIES OF THE ITEM 
^RE TO BE PRINTED? 

DO YOU WANT TO ALIGN TO TOP 
□ F PAGE BETUIEEN PRINTS 
|y OR N>? 

HOy QgNY SPACES BETUEEN 

ALIGN PAPER AND PRESS 
ENTER (I'LL SPACE 5 
SPACES) 
? 



HERE IS THE TEXT THAT IS 
□ BE PRINTED. I HAVE PLACED 
T IN QUOTES TO ALLOW THE 
SE OF COMMAS IN THE 
DNTENTS. THE DATA QiLL BE 
CCEPTED CORRECTLY <AS THIS 
INE IS IF I HAVEN'T USED 
NY COMMAS. THE TEXT IS 
ERM I MATED 

ITH A DATA END CARD. THIS 
S THE LAST CARD IN THE 
ROGRAM . 



MAJOR SYMBOL TABLE - MULTIPLE PRINTS 



NAME 


• • 


DESCRIPTION 


C 


• • 


NUMBER OF COPIES TO PRINT 


LO 


• • 


LINES PER PAGE 


S 


* * 


SPACES BEFORE PRINTING 


T$ 


• • 


TEXT 


L 


• • 


LINE COUNT 
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PAPER ROUTE - BASIC VERSION 



Description 

Paper route delivery schedule records and collection lists can be a tedi- 
ous and time-consuming task for the young entrepreneur. This program 
can provide much needed assistance in these tasks. 

Functions of the Program 

The program accepts customer and price information from DATA state- 
ments and produces either a collection list or a route delivery list. 
Following the completion of the delivery list, customer and paper counts 
are produced to assist in ordering for the week. 

Instructions for Use 

The price of the various delivery options must be supplied along with a 
customer list, complete with their delivery requirements, prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

The following data formats are required: 

1. The first data record provides the price of delivery information for 
collection list use: 

Sun cost, Mon cost, . . . , Sat cost. Weekly cost. Monthly cost 

2. Customer delivery items are entered using the following form: 

Name, House number. Street name. Delivery schedule 
The delivery schedule is coded as follows: 

1. M is entered for monthly deliveries. 

2. W is entered for fiill weekly deliveries. 

3. D is entered to indicate that the customer receives papers only on 
selected days. It is followed (separated by a comma) by the days 
that the customer receives delivery (1-Sun, 2-Mon, . . . 7-Sat). See 
example data provided. 

Output Description 

See example provided. Two forms of output can be selected: 

1. A list for collection purposes. 

2. A daily delivery list for the route. 



200 Tl BASIC Computer Programs for the Home 



10 CALL CLEAR 

20 REM PAPER ROUTE PROGRAM - BASIC 

30 REM t*t***tt****tt**** DATA INITIALIZATION «««»««*«»»««««*«> 

40 M= 10000 
50 DIM P<7) 
60 DIM D«<7) 
70 DIM CO (7) 
80 PRINT 
90 PRINT 

100 PRINT " TWO OPTIONS ARE AVAILABLE" 
110 PRINT TAB(10);"1. PRINT OF COLLECTION LIST" 
120 PRINT TAB(10);"2. PRINT OF ROUTE LIST " 
130 PRINT 

140 PRINT "ENTER OPTION NUMBER DESIRED" 
150 INPUT O 

160 REM «««**««««««««««««* ENTRY OF NUMBER TO PRINT ttttttttttt* 

170 READ C0<l),C0(2),C0(3),C0(4),C0<5),C0<6),C0(7),Cl,C2 
180 IF OOl THEN 220 
190 IF C2O0 THEN 220 

200 PEINT"ENTER THE NUMBER OF WEEKS" 2 "FOR MONTHLY CHARGES" 
210 INPUT NO 

220 REM *t***********t**** PROCESSING STARTS ««»««»«««(««««««««* 

230 PRINT "POSITION PAPER NOW" 
240 INPUT G$ 
250 FOR 1=1 TO M 
260 READ N« 

270 IF N$="END" THEN 800 
280 READ A1$,A2«,T* 
290 IF T$="D" THEN 340 
300 FOR J=l TO 7 
310 D*(J)=" " 
320 NEXT J 
330 GOTO 430 
340 K=l 

350 FOR J=l TO 7 

360 D*<J)=»"»" 

370 NEXT J 

380 READ DO 

390 IF D0=0 THEN 430 

400 Dt<DO)=" " 

410 K=K+1 

420 IF K<=7 THEN 380 
430 IF 0=1 THEN 560 

440 REM «*««««««««*««««««« OPTION 2 «»««««««««««««**««*«*«*««««« 

450 IF lOl THEN 490 

460 PRINT "NAME" ; TAB <28); "ADDRESS" J TAB (56) J " S M T W T F 8" 

470 PRINT " " 

480 REM 

490 FOR J=l TO 7 

500 IF D«<J)="«" THEN 520 

510 P(J)=P(J)+1 

520 NEXT J 

530 PRINJ "<";D«(1);") <";D«<2);") (";D«<3);") ("5D*(4);") <";D«<5)| 
540 PRINT ") (";D$(6);") <";D«(7> j")"iTAB(28);N«;TAB<56)5Al*;" "jA2»i 
550 GOTO 780 

560 REM ««««««««««*«*«*««« OPTION 1 «««««««««*««»«««««*«»«»*«**« 

570 IF lOl THEN 600 

580 PRINT "NAME" j TAB <28) 5 "ADDRESS" ; TAB <46) ; "OWED" 
590 PRINT " " 

600 REM ****************** COMPUTE BILL ************************ 

610 IF T$<>"M" THEN 670 

620 IF C2=0 THEN 650 

630 T1=C2 

640 GOTO 750 

650 T1=C1«N0 

660 GOTO 750 

670 IF T«<>"W" THEN 700 

680 T1=C1 

690 GOTO 750 

700 J=l 
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710 IF D«<J)="»" THEN 730 
720 T1=T1+C0(J> 
730 J=J+1 

740 IF J<=7 THEN 710 
750 T2=T2+T1 

760 PRINT N*;TAB<28);A1*;" "; A2*;TAB(46) ;T1 a i 
770 Tl-0 
780 NEXT I 

790 REM «i|ci|c««*«)|E»*««««*]|c«i|ci|c]|(««««i|[««««*«««««««)|[«««««««<t«««»«)|tt««« 
SOO REM t******ttt***t**t* TERMINATION POINT «»«««»«t«»|:««»»«»«|c 
810 IF OOl THEN 860 

820 PRINT TAB (18);" " 

830 PRINT TAB<2); "TOTAL OWED ";TAB<18);T2 
840 PRINT 
850 GOTO 990 
860 PRINT 

870 PRINT "««««««««»«**»««««««««»«««««» 

880 PRINT "CUSTOMER COUNT »"jl-l 
890 PRINT 

900 PRINT "DAILY COUNT" 

910 PRINT "SUNDAY ";P<1) 

920 PRINT "MONDAY ";P<2) 

930 PRINT "TUESDAY "5P(3) 

940 PRINT "WEDNESDAY ";P<4) 

950 PRINT "THURSDAY ";P<5) 

960 PRINT "FRIDAY ";P<6) 

970 PRINT "SATURDAY ";P<7) 

980 PRINT "t**tt**1l.ttt*t**tt**********» 

990 PRINT 

1000 STOP 

1010 REM 

1020 REM DATA ENTRIES FOLLOW 

1030 REM ««««««*«««««««««««|[t««»««««««««««*»»«««»«««««««««t««t«tt 

1040 REM FIRST ENTRY IS COST PER DAY (1-7), COST PER WEEK, PER MONTH 
1050 REM IF MONTH=0 THEN MONTH CHARGE WILL BE BASED ON # WEEKS 
1060 DATA .50,.10, .10, .10, .10,. 10, .10, 1.25,4.75 
1070 DATA JOHN R. DOE 
1080 DATA 555, SMOKE Y DRIVE 
1090 DATA W 

1100 DATA JOSEPH R. WESTONBY 
1110 DATA 456,EASERLY ROAD 
1120 DATA M 

1130 DATA JANE J. SMITH 

1140 DATA 1700, SMOKE Y DRIVE, M 

1150 DATA RICHARD F. JONES 

1160 DATA 1213,EASERLY ROAD, D, 1,3,0 

1170 DATA WILLIAM WILLIAMS 

1180 DATA 1234,EASERLY ROAD, 0, 1 ,2,3,4,5,6,0 
1190 DATA END 



>RUN 



TWO DPTIDNS ARE flVfllLflBLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 



ENTER OPTION NUMBER DESIRED 
POSITION PAPER NOW 




OUED 



555 SMDKEY DRIVE 

JOSEPH R. UESTDN 
456 EflSERLY RDflD 



4. 75 



1 . 25 




RIVE 4.75 



. 6 
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UlILLIflM WILLIQMS^ ^ 
12 3 4 EflSERLY RDflD 1 



TDTflL OWED 12.35 



>RUN 

TUQ OPTIONS ARE flVfllLflBLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 
ENTER OPTION NUMBER DESIRED 

PoilTION PAPER NOU 

? 

NAME 

"i^g^S U. T F S 



< >< >< >< >< >< >< > 



I ERSERLY RORD 



< >< >< >< X X X > 
JRNE J. SMITH 
1700 SMOKEY DRIVE 



X*>< ><*><♦><«><«> 

RD F. JONES 

ERSERLY RORD 



RicHRRD F.' Jones 

1213 ERSERLY ROR 

< >< >< X X >< X«> 
WILLIflll UILLIRMS^ 
1234 ERSERLY RORD 




******************** 
R COUNT = 5 

OUNT_ 



*««««««««**«*««*«*** 



MAJOR SYMBOL TABLE - PAPER ROUTE - BASIC VERSION 



NAME 




DESCRIPTION 


M 


• * 


MAXIMUM NUMBER OF DATA READS 


P< ) 


• * 


DAILY PAPER COUNT 


tt%( ) 


• • 


DAILY DELIVERY INDICATOR 


C0( > 




PRICE OF DAILY PAPER ] 





• • 


OPTION NUMBER 


CI 


• • 


PRICE OF WEEKLY DELIVERY 


C2 


• • 


PRICE FOR MONTHLY DELIVERY 


N« 


• • 


CUSTOMER NAME 


Al$ 


• • 


CUSTOMER HOUSE NUMBER 


A2i 


• • 


CUSTOMER STREET ADDRESS 


Tf 


• • 


FREQUENCY OF DELIVERY 


Tl 


• « 


AMOUNT OWED BY INDIVIDUAL 


T2 


• • 


TOTAL OWED 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


[ TAB 


• • 


FORMATS PRINT LINES 


: DIM 


• • 


SINGLE DIMENSION ARRAYS 
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PAPER ROUTE - EXTENDED VERSION 



Description 

This program extends the basic version by allowing the carry over of 
noncollected items from the previous collection period and assists the 
user by projecting his expenses for the period. 

Functions of the Program 

The functions of this program are identical to the basic version except 
that computations have been added to carry over money owed from the 
previous period. An additional function has been added to accept addi- 
tional charges/credit items and compute a projected bill for the papers 
and services received. 

Instructions for Use 

See the basic version. Additional information must be supplied for the 
amounts owed from previous periods. 

Data Entry 

Data is entered using DATA statements. Additional charges and credits 
are entered at the keyboard. 

Data Formats 

Data formats are identical to the basic version except that the customer 
record is of the form: 

Name, House number, Street name. Delivery schedule, 
Amount owed from the previous period 

Output Description 

See example provided. The third option prints paper counts and the 
costs of delivery. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

10 CALL CLEAR 

20 REM PAPER ROUTE PROGRAM - EXTENDED 

30 REM OPEN STATEHENT FOR PRINTER *««««»«««« 

40 REM *** CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT »»« 
50 OPEN #1: "RS232.BA=9600.DA=a" 

60 REM DATA INITIALIZATION ««««««««««*««««« 

70 M= 10000 
80 DIM P<7) 
90 DIM T<B) 
100 DIM B0<7) 
110 DIM D«(7> 
120 DIM C0<7) 
130 PRINT 
140 PRINT 

150 PRINT " THREE OPTIONS ARE AVAILABLE" 

160 PRINT TAB<10);"1. PRINT OF COLLECTION LIST" 
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170 PRINT TAB<10);"2. PRINT OF ROUTE LIST " 
iBO PRINT TAB(10);"3. BILL COMPUTATION" 
190 PRINT 

200 PRINT "ENTER OPTION NUMBER DESIRED" 
210 INPUT 

220 REM ENTRY OF NUMBER TO PRINT «««««*«««««* 

230 READ C0<l),C0(2),C0(3),C0(4),C0(5),C0<6),C0<7),Cl,C2 
240 READ B0(1) ,B0<2) ,B0(3) ,B0(4) ,B0(5) ,B0<6) ,B0<7) 
250 IF OOl THEN 290 
260 IF C2O0 THEN 290 

270 PRINT "ENTER THE NUMBER OF WEEKS": "FOR MONTHLY CHARGES" 
280 INPUT NO 

290 REM ««*«*««*««*««««««« PROCESSINGS STARTS «*««*««*t««4c««*««« 

300 PRINT "POSITION PAPER NOW" 
310 INPUT Gt 
320 FOR 1=1 TO M 
330 READ N$ 

340 IF N*="END" THEN 960 
350 READ A1$,A2*,T« 
360 IF T*="D" THEN 410 
370 FOR J=l TO 7 
380 D*(J)=" " 
390 NEXT J 
400 GOTO 500 
410 K=l 

420 FOR J=l TO 7 

430 D$<J)="»" 

440 NEXT J 

450 READ DO 

460 IF D0=0 THEN 500 

470 D«(DO)=" " 

480 K=K+1 

490 IF.K<=7 THEN 450 
500 READ B 
510 IF 0»3 THEN 890 
520 IF 0=1 THEN 650 

530 REM «««««««*«««««««««« OPTION 2 ««»«««»«««*««*««t««t<:««*t«t« 

540 IF lOl THEN 580 

550 PRINT #1:" S M T M T F S" ; TAB <25) ; "ADDRESS"; TAB <50) | "NAME" 

560 PRINT #1:" ";TAB<25);" "; 

570 PRINT #1:TAB<50);" " 

580 FOR J=l TO 7 

590 IF D«<a)="»" THEN 610 

600 P(J)=P<J)+1 

610 NEXT J 

620 PRINT #1!"<";D«<1);") <"jD«<2)j") <";D«<3);") <"jD«<4);") <";D*<5)5 
630 PRINT #li") <";D$<6);") (";D«<7);">";TAB(25)jAl«j " "j A2«;TAB<50> ;N» 
640 GOTO 940 

650 REM t***t*****t**t*t*1li OPTION 1 «»*««»)|:««««««««»«««««««««««* 

660 IF lOl THEN 690 

670 PRINT #1 :" ADDRESS" ; TAB <30 ) J "OWED"; TAB < 42); "NAME" 

680 PRINT #1:" ";TAB(30);" "5TAB<42);" " 

690 REM *t*t*t**t***t*ttt* COMPUTE BILL »*««*««««»«(«««««««««««« 

700 IF T«<>"M" THEN 760 

710 IF C2=0 THEN 740 

720 T1=C2+B 

730 GOTO 850 

740 T1=C1»N0+B 

750 GOTO 850 

760 IF T*<>"W" THEN 790 

770 T1=C1+B 

780 GOTO 850 

790 J=»l 

800 T1=B 

810 IF D«<J)="«" THEN 830 
820 T1=T1+C0(J) 
830 J=J+1 

840 IF J<=7 THEN 810 
850 T2=T2+T1 

860 PRINT #1:A1«;" "; A2$;TAB<30) ;T1;TAB(42) ;N* 
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B70 T1=0 
8B0 GOTO 940 

B90 REM *t**************** OPTION 3 PREP *««*t«*««»««««««««tt««* 

900 FOR J=l TO 7 

910 IF D«<a)="«" THEN 930 

920 P(J)=P(J)+1 

930 NEXT J 

940 NEXT I 

960 REM TERMINATION POINT «»«««««««««««»««««> 

970 IF OOl THEN 1020 

980 PRINT #1:TAB<30>;" " 

990 PRINT #1 : TAB < 16)? "TOTAL OWED ";TAB<30)jT2 
1000 PRINT #1 
1010 GOTO 1460 
1020 PRINT «1 

1030 PRINT «1: "««*««»««*««**««««««««*«««««>' 

1040 PRINT #ls "CUSTOMER COUNT 
1050 PRINT #1 

1060 PRINT #ls "DAILY COUNT" 



1070 PRINT #1 
1080 PRINT ttl 
1090 PRINT #1 
1100 PRINT #1 
1110 PRINT #1 
1120 PRINT ttl 
1130 PRINT ttl 
1140 PRINT «1 



"1 SUNDAY ";P(1) 

"2 MONDAY ";P(2) 

"3 TUESDAY ";P<3) 

"4 WEDNESDAY ";P(4) 

"5 THURSDAY "jP<5) 
"6 FRIDAY 
"7 SATURDAY 



"jP(6) 
";P<7) 

IISO IF 0O3 THEN 1460 

1160 PRINT "ARE THERE ANY CHANGES TO": "THESE COUNTS <Y OR N) " 

1170 INPUT A* 

1180 IF A$="N" THEN 1250 

1190 FOR 1=1 TO 7 

1200 PRINT "ENTER CHANGES FROM THE": "NUMBER SHOWN FOR DAY"jIj" "| 
1210 C=0 
1220 INPUT C 
1230 P(I)=P<I)+C 
1240 NEXT I 

1250 PRINT "ENTER ANY ADDITIONAL": "CHARGES OR CREDITS TO YOUR": "BILL"| 

1260 FOR 1=1 TO 10 

1270 B1=0 

1280 INPUT Bl 

1290 IF B1=0 THEN 1320 

1300 B2=B2+B1 

1310 NEXT I 

1320 PRINT #1 

1330 PRINT #1 

1340 PRINT #ls"DAY COUNT" ; TAB ( 12) ; "BILL" 

1350 PRINT #1:" "j TAB (12)}" " 

1360 FOR 1=1 TO 7 
1370 T(I)=P(I)»BO<I) 

1380 PRINT #1: l!;TAB<5) ;P<I) ;TAB<12) ;T<I) 
1390 T(a)=T<8)+T<I) 
1400 NEXT I 

1410 PRINT #1: TAB (12);" " 

1420 PRINT #1: "PAPER C0STS";TAB<12) ;T(8> 
1430 PRINT #1: "OTHER COSTS" ; TAB < 12) ;B2 

1440 PRINT «1:TAB<12>;" " 

1450 PRINT #1:"TATAL BILL";TAB<12) ;T<8)+B2 
1460 PRINT #1 
1470 STOP 

1480 REM ««««««*««««*«»««««««««««««iK««t«]|c«***«««*|:««««««««««««««* 

1490 REM DATA ENTRIES FOLLOW 

1500 REM ««««««*«*««««««««««««««««««««««««*«*«*««*«««**$«$*««««** 

1510 REM FIRST ENTRY IS COST PER DAY (1-7), COST PER WEEK, PER MONTH 

1520 REM IF MONTH=0 THEN MONTH CHARGE WILL BE BASED ON # WEEKS 

1530 DATA .50, .10,. 10,. 10,. 10,. 10,. 10, 1-25,4.75 

1540 DATA .35,. 07,. 07,. 07,. 07,. 07,. 07 

1550 DATA JOHN R. DOE 

1560 DATA 555, SMOKE Y DRIVE, W 
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1570 


DATA 


. 11 




1580 


DATA 


JOSEPH R. WESTONBY 




1590 


DATA 


456,EASERLY ROAD,M 




1600 


DATA 


. 12 




1610 


DATA 


JANE H. SMITH 




1620 


DATA 


1700,SMQKEY DRIVE, M 




1630 


DATA 


. 13 






UH 1 fi 


rCiUnHKU r« JUNcSs 




1650 


DATA 


1213,EASERLY ROAD,D, 


1,3,0 


1660 


DATA 


.14 




1670 


DATA 


MILLIAM WILLIAMS 




1680 


DATA 


1234,EASERLY ROAD,D, 


1,2,3,4,5,6,0 


1690 


DATA 


. 15 




1700 


DATA 


END, 0,0 





>RUN 

THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 



ENTER OPTION NUMBER DESIRED 
? 1 

POSITION PAPER NOW 
? 

ADDRESS 



555 SMOKE Y DRIVE 
456 EASERLY ROAD 
1700 SMOKEY DRIVE 
1213 EASERLY ROAD 
1234 EASERLY ROAD 



TOTAL OWED 



OWED 

1.36 

4.87 

4.88 

.74 

1.15 

13 



NAME 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H. SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



>RUN 

THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 

ENTER OPTION NUMBER DESIRED 

? 2 

POSITION PAPER NOW 



s 




M T 


W T F S 


ADDRESS 


( 


) 




<)()<)<) 


555 SMOKEY DRIVE 


( 


) 




()<)()() 


456 EASERLY ROAD 


( 


) 




()<)()<) 


1700 SMOKEY DRIVE 


< 


) 


(«) ( ) 


(«) («) («) («) 


1213 EASERLY ROAD 




) 




< ) < ) ( ) <*) 


1234 EASERLY ROAD 



NAME 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H. SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



CUSTOMER COUNT = 5 

DAILY COUNT 

1 SUNDAY 5 

2 MONDAY 4 

3 TUESDAY 5 

4 WEDNESDAY 4 

5 THURSDAY 4 

6 FRIDAY 4 

7 SATURDAY 3 
««««»««««««««««««»»««««««*|[ 
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>RUN 

THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 

ENTER OPTION NUMBER DESIRED 
? 3 

POSITION PAPER NOW 
7 



CUSTOMER COUNT = 5 

DAILY COUNT 

1 SUNDAY S 

2 MONDAY 4 

3 TUESDAY 5 

4 WEDNESDAY 4 

5 THURSDAY 4 

6 FRIDAY 4 

7 SATURDAY 3 

ARE THERE ANY CHANGES TO 
THESE COUNTS <Y OR N> 
? Y 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 1 ? fc 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 2 7 6 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 3 7 6 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 4 7 6 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 5 7 6 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 6 7 6 

ENTER CHANGES FROM THE 

NUMBER SHOWN FOR DAY 7 7 6 

ENTER ANY ADDITIONAL 

CHARGES OR CREDITS TO YOUR 

BILL 

7 9.99 

7 



DAY 


COUNT 


BILL 


1 


11 


3.85 


2 


10 


.7 


3 


11 


.77 


4 


10 


.7 


5 


10 


.7 


6 


10 


.7 


7 


9 


.63 



PAPER COSTS B.05 
OTHER COSTS 9.99 



TDTfiL BILL 18.04 
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MAJOR SYMBOL TABLE - PAPER ROUTE -EXTENDED 



NAME 


• • 


DESCRIPTION 


n 


• • 


nHAxnun wuriDtrt ur uriiri i\criuo 


D / \ 

r\ / 


• • 


TIATI V P^PPP pniiMT 
1JRXL.T rnrtK UUUn 1 


TaA / \ 
D%\ ) 


• • 


DAILY ]JhLXVC.KT XNUlURIUKa 


C0( ) 


* • 


PRICE Ur UHTO UtLlvtKT 


T< ) 


• • 


TOTAL PRICE OF DAYS PAPER 


B0( ) 


• • 


COST OF DAILY PAPER 





* • 


OPTION NUMBER 


CI 


• • 


PRICE OF WEEKLY DELIVERY 


C2 


• • 


PRICE FOR MONTHLY DELIVERY 


N* 


• • 


CUSTOMER NAME 


Al$ 




CUSTOMER HOUSE NUMBER 


A2> 


• • 


CUSTOMER STREET 


T$ 


* • 


FREQUENCY OF DELIVERY 


Tl 


• • 


INDIVIDUAL BILL 


T2 


• • 


TOTAL TO COLLECT 


B 


* • 


OWED FROM PAST PERIODS 


Bl 


• • 


CHARGES CREDITS TO YOUR BILL 


B2 


• • 


TOTAL CHARGES/CREDITS TO YOUR BILL 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


• • 


FORMAT PRINT LINES 


DIM 


• • 


SINGLE DIMENSION ARRAYS 
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WEIGHT CONTROL 



Description 

Keeping records of weight for reviewing progress and analyzing diets is 
practiced consistently by weight clinics and health clubs. This program 
provides the capability to accomplish this effectively in your own home 
with your microcomputer. 

Functions of the Program 

The program determines the starting date for analysis and computes 
results achieved from that day forward. All data items read prior to the 
starting date are ignored by the program. The printed results provide 
daily weight information and a summarization of total results after 
completion of all processing. 

Instructions for Use 

Weight information should be recorded daily and entered as data prior 
to running the program. 

Data Entry 

All data is entered as DATA statements. 



Data Format 

The data format of the records is: 

Month, Day, Weight 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM WEIGHT CONTROL PROORAM 

30 REM «!|c««««i|c«)|c)K«««««i|(««]|c DATA INITIALIZATION «*««««*««««««««« 

40 M=1000 

50 REM t1li*1l.**t**illi*t*tt*t**t1f.t**1ti*1ti***ttt**t*t^ 

60 REM tit***************** PROCESSING AREA 

70 PRINT "SHALL WE START AT THE" x "BEGINNING < Y OR N)?" 

BO INPUT A$ 

90 IF A*="Y" THEN 240 

100 REM ****************** FIND STARTING POINT ***************** 
110 PRINT "ENTER THE STARTING MONTH,": "DAY FOR THE REPORT I.E. ,"i"JUN 
120 INPUT M1«,D1 
130 FOR 1=1 TO M 
140 READ m 

150 IF M«="END" THEN 220 

160 READ D,S 

170 IF M*<>M1« THEN 210 

180 IF DODl THEN 210 

190 PRINT 

200 GOTO 290 

210 NEXT I 

220 PRINT "THAT DATE WAS NOT FOUND" 
230 GOTO 520 
240 PRINT 
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250 PRINT 
260 PRINT 
270 READ M$,D,S 

280 REM t**t***t*t*t****** PROCESSINB ENTRIES TO PRINT »«««««««t 
290 PRINT "INITIAL WEIGHT WAS "j S| "□N":D;M« 
300 PRINT 

310 PRINT " DATE"; TAB (9) J "WEIGHT" J TAB (16);"+/- " 

320 PRINT " ";TAB(9);" ";TAB<16);" " 

330 T2=S 

340 D2=D 

350 FOR 1=1 TO M 

360 N»l 

370 READ M« 

380 IF M«="END" THEN 510 

390 READ D,W 

400 IF D<D2 THEN 420 

410 N=D-D2 

420 D2=D 

430 T0=W-T2 

440 PRINT D;M«;TAB(9);W;TAB<15);T0; 

450 IF N«l THEN 470 

460 PRINT "»*<";N; "DA) "; 

470 T2=W 

480 Nl»Nl-«-N 

490 PRINT 

500 NEXT I 

510 REM «««**««*«*****«»»»«*«««««««««»«*|c««««««««*«««««*««««««t« 
520 REM **«««««««««««««««« PROGRAM TERMINATION POINT 
530 T4=W-S 

540 PRINT TAB (15);" " 

550 PRINT "• TOTAL" ; TAB < 15) ;T4 
560 PRINT 

570 PRINT "«««««»«*««»««««««««««*«««»«[" 

580 PRINT "FOR ";N1;" DAYS" 

590 PRINT "AVERAGE DAILY RESULT WAS: ";T4/N1 
600 PRINT "t**t***t*tt*tt***t*t*imttt" 

610 PRINT 
620 PRINT 
630 STOP 

640 REM »*«««««««i|C!|(i|c**«4c«*«««««i|()|(««««««««««]|[«««««««»«««*«««««««« 
650 REM t*tt***t****tt**** DATA ENTRY FOLLOWS «««««»«««»*«««««*> 

660 DATA JUNE, 28, 234 
670 DATA JUNE, 29, 237 
680 DATA JUNE, 30, 235 
690 DATA JUL, 1,231 
700 DATA JUL, 2, 230 
710 DATA JUL, 3, 230 
720 DATA JUL, 5, 228 
730 DATA JUL, 6, 226 
740 DATA JUL, 8, 220 
750 DATA JUL, 31, 199 
760 DATA END 



>RUN 

SHALL UE STfiRT AT THE 
BEGINNING < 9 OR N>? 
7 Y 



INITIAL UEI6HT UAS 
28 JUNE 

DATE WEIGHT +>'- 



234 ON 




-4 
-1 

-2 **< 2 DA> 



-6 **< 2 DA> 
-21 **< 23 DA> 



TOTAL 



-35 
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flSlRfliipflKf RESULT UflSl 
-1 . 060606061 

lyiJJpL WEIGHT WRS 228 ON 

DfiTE WEIGHT 

6~JUL ~226 -2 

8 JUL 220 -6 »»< 2 BR> 

31 JUL 199 -21_»«< 23 Dfl> 

TDTfiL -ii 

♦ **»♦**«♦»*»■»**»*«»«****»♦# 
ERB^^26 DAYS 

RVERflGE^DfllLY^RESULT WflSl 
-1.1 1338461 3 



MAJOR SYMBOL TABLE - UEIGHT CONTROL 



NAME 




DESCRIPTION 


M 


* • 


MAXIMUM NUMBER OF DATA READS 


Hl% 


• • 


START MONTH 


Dl 


• • 


START DAY 


M» 


• • 


MONTH IN 


D 




DAY IN 


S 


• • 


START UEIGHT IN 


U 


* • 


WEIGHT IN 


TO 


* • 


UEIGHT CHANGE 


N 


• • 


NUMBER OF DAYS MISSED 


T4 


• * 


TOTAL UEIGHT CHANGE 


Nl 


• • 


TOTAL NUMBER OF DAYS 


T2 


• • 


UEIGHT PREVIOUS DAY j 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


• * 


FORMATS PRINT LINES 
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HOUSEHOLD INVENTORY 



Description 

For a wide variety of uses, including insurance requirements, it is ad- 
vantageous to have a detailed record of all household property that 
includes purchase dates and costs. This program provides this informa- 
tion in a convenient form that can offer many supplemental benefits to 
the home. 

Functions of the Program 

The program accepts data from DATA statements and prints them in 
the order requested. The code for each printing option is kept separate 
to allow clarity and ease of extension. 

Instructions for Use 

Record information concerning your household items, and enter them 
as data prior to running the program. 

Data Entry 

All data is entered using DATA statements. 
Data Format 

The format of the entries is: 

Item name, Location, Purchase date, Cost, Mfr, Serial Number 

Output Description 

See example provided. Output is presented in two forms as illustrated 
by the examples. All items can be printed in their original order or 
sorted by location. 



10 CALL CLEAR 

20 REM HOUSEHOLD INVENTORY PROGRAM 

30 REM «t*«««««««««*««*««« DATA INITIALIZATION «««»»«*««*«»«««* 

40 M=1000 
50 M0»40 

60 PRINT "SHALL I PRINT THE ENTRIES" s "IN ORDER BY LOCATION?" 
70 INPUT A« 
80 PRINT 
90 PRINT 
100 PRINT 

110 IF A«="Y" THEN 290 

120 PRINT " ITEM"; TAB < 16) ; "PURCHASED" j TAB < 28) j "LOCATION"; TAB (44) ; "COST"; TAB (56) | 
130 PRINT "MFR";TAB<72);"SER. NBR" 

140 PRINT " " 

ISO REM 

160 REM ««*««*««««t«»«***««««««««*«**«««*t«««*«*«*»«««»««»«**«*t 
170 REM «««*«»**«** PRINTINQ IN THEIR PRESENT ORDER *»«»«»«»«««» 

180 FOR 1=1 TO M 
190 READ I« 

200 IF I*="END" THEN 250 
210 READ L$,D$,C,M»,S« 

220 PRINT I« ; TAB < 16) ; D«; TAB (28) ; L«; TAB (44) ; C; TAB (56) ; M*; TAB (72) ; Stt t 
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230 NEXT I 

240 REM *****«**«*««««««««*««]k*)|[«*«*«t««t**««««t«t««*««*««««**«« 

250 REM PROGRAM TERMINATION POINT ttt*$t*t*$t 

260 PRINT 
270 PRINT 
280 STOP 

290 REM !|t)|c«««««)|c*«««»)|[««««)|t««««*««i|c«]|[«««««*««««t«*t«««««t««*«««« 
300 REM *»«*«« PROCESSING ORDERING AND PRINT BY LOCATION ««««««» 
310 PRINT "LOCATION" ; TAB < 1 6) ; "PURCHASED" ; TAB <28) ; "ITEM" « TAB <44) ) 
320 PRINT "CDST";TAB(56) ; "MFR";TAB(72>}"SER. NBR" 

330 PRINT " 

340 REM 
350 1=1 

360 FOR J=l TO M 
370 READ I« 

3B0 IF I«="END" THEN 540 
390 READ L$,D«,C,M«,S« 
400 IF J>I THEN 510 
410 IF J<I THEN 530 
420 X$=L* 

430 IF 1=1 THEN 510 

440 RESTORE 

450 FOR K=l TO J 

460 READ I$,L«,D$,C,M«,S« 

470 IF X«<>L« THEN 490 

480 11=11+1 

490 NEXT K 

500 IF I1>1 THEN 540 

510 IF L*<>X$ THEN 530 

520 PRINT LIS; TAB < 16) ; D*s TAB <2B) ; I«; TAB (44) ; C; TAB (36) | M«j TAB <72> } S«i i 

530 NEXT J 
540 RESTORE 
550 11=0 

560 IF lOl THEN 580 
570 M=J-1 
580 PRINT 
590 1=1+1 

600 IF I<=M THEN 360 
610 GOTO 250 

620 REM «i|c«)|c«]|c««««««!|c*««*««««««**«]|t««««t«««««««*««««««*t«««««««« 
630 REM ****************** DATA ENTRIES FOLLOW ***************** 
640 DATA TELEVISION, LIVING RM,DEC 1979, 333. 45, BRAND X,M1234S6 
650 DATA RADIO, BEDROOM l.JUN 1978, 11 .23, BRAND Y, 345-1213 
660 DATA DISHWASHER, KITCHEN, JAN 1978, 189. 45, BRAND Z,12-12-M12 
670 DATA WATER SOFTENER, HOUSE 2, JUL 1945, 432. 56, BRAND Q, 129876 
680 DATA RANGE, KITCHEN, DEC 1945, 234. 20, BRAND X, 26543 
690 DATA END 



<RUN 

SHALL I PRINT THE ENTRIES 
IN ORDER BY LOCATION? 
Y 

LOCATION PURCHASED 
ITEM COST 
MFR SER. NBR 



LIVING RM 
TELEVISION 
BRAND X 



DEC 1979 
333.45 
M123456 



BEDROOM 1 
RADIO 
BRAND Y 



JUN 1978 
11.23 
345-1213 



KITCHEN 
DISHWASHER 
BRAND Z 



JAN 1978 
189.45 
12-12-M12 
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KITCHEN DEC 1945 

RANGE 234.2 
BRAND X 26543 



HOUSE 2 JUL 1945 

WATER SOFTENER 432.56 
BRAND Q 129876 



<RUN 

SHALL I PRINT THE ENTRIES 
IN ORDER BY LOCATION? 
N 

ITEM PURCHASED 
LOCATION COST 
MFR SER. NBR 



TELEVISION 
LIVING RM 
BRAND X 



DEC 1979 
333.45 
Ml 23456 



RADIO 
BEDROOM 1 
BRAND Y 



JUN 1978 
11.23 
345-1213 



DISHWASHER 
KITCHEN 
BRAND Z 



JAN 1978 
189.45 
12-12-M12 



WATER SOFTENER JUL 1945 
HOUSE 2 432.56 
BRAND Q 129876 



RANGE 
KITCHEN 
BRAND X 



DEC 1945 
234.2 
26543 



MAJOR SYMBOL TABLE - HOUSEHOLD INVENTORY 



NAME 


• * 


DESCRIPTION 


M 


* • 


MAXIMUM NUMBER OF DATA READS 


1$ 


* • 


ITEM 


L* 


• • 


ROOM/LOCATION 


D$ 


• * 


PURCHASE DATE 


C 


• • 


COST 


M$ 


• • 


MANUFACTURER 


S% 


• • 


SERIAL NUMBER 


1 


• • 


COUNTER 


X$ 


• • 


ITEM BEING PRINTED 


FUNCTIONS USED 


NAME 


* • 


DESCRIPTION 


TAB 


• * 


FORMATS PRINT LINES 
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7 



mai Programs lor Home Use 

Math Practice— Addition 
Math Practice— Subtraction 
Math Practice— Multiplication 
Math Practice— Division 
Temperature Conversion Tutor 
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MATH PRACTICE - ADDITION 



Description 

This program provides the ideal device for introducing your children to 
the computer and building up their arithmetic abilities in addition. The 
level of difficulty of the problems is redefined during each run to meet 
changing skill levels. 

Functions of the Program 

This program produces a series of addition problems with randomly 
generated values. The complexity of the problems is determined by 
your choice of the number of digits in them. The individual running the 
program is given the problems and computes answers independently of 
the machine. The answers are then asked for by the computer and are 
compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prmts five problems per line. The results are printed after each group of 
five problems, and a summary is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 
Data Entry 

All data is entered through the keyboard. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM MATH PRACTICE ADDITION 

30 REM «*«*««*»«»««*»««« DATA INITIALIZATION «*»tt«««««««»*«««« 

40 Y=l 

50 S=l 

60 M=50 

70 C0=0 

80 W0«0 

90 DIM Rt(5) 

100 DIM A(S) 

110 DIM N1(S> 

120 DIM N2(S) 

130 DIM C(S> 

140 PRINT "ENTER THE NUMBER OF DIGITS"! "FOR THE PRACTICE NUMBERS"! " <MAX. OF 3)"| 
150 INPUT 8 

160 IF S>3 THEN 170 ELSE 190 

170 PRINT "ONLY TO A MAXIMUM OF 3. "l "TRY ABAIN."| 
180 GOTO 140 

190 PRINT "HOW MANY ITEMS SHALL I PRINT-i"<5, 10, IS, 20 ETC.)"| 
200 INPUT M 
210 PRINT 

220 REM »»»*««««***»«»*«»«« PROCESSING AREA »*«$$«»««»«««««*««« 

230 FOR I»l TO M/5 
240 FOR J°l TO S 
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250 RANDOMIZE 

260 Nl< J ) aiNT (RND* iO^S) 

270 N2(J)°INT(RND<10'^S) 

280 NEXT J 

290 FOR J=l TO S 

300 FOR K=l TO S 

310 IF N1<J)>=10^(S-K)THEN 340 

320 IF (S-K)+N1<J)=0 THEN 340 

330 NEXT K 

340 PRINT N1(J)|TAB((J«S)+3)| 

330 NEXT J 

360 PRINT 

370 FOR J=l TO S 

380 FOR K=l TO 8 

390 IF N1<J)>»10^<S-K)THEN 420 

400 IF (8-K)+N2(J)»0 THEN 420 

410 NEXT K 

420 PRINT N2(J>|TAB((J«5)-^3)l 
430 NEXT J 

440 PRINT _ " 

430 FOR J=l TO 5 

460 FOR K=l TO S+3 

470 NEXT K 

480 PRINT TAB<J«4) 

490 NEXT J 

500 FOR Jal TO 5 

SIO PRINT 

520 NEXT J 

530 PRINT "ENTER THE ANSWERS, (WITH A" i "COMMA BETWEEN)" 
540 INPUT A(1),A(2),A(3),A(4>,A(5) 

550 REM «««««««»*«»«««««« PRINTS GROUP RESULTS «««««*«»««««««*»« 

560 PRINT 

570 PRINT "RESULTS OF THIS QROUPi* 
580 PRINT 

590 PRINT " ITEM" | TAB <7) | "MINE" | TAB < 14) | "YOURS" I TAB <22) | "RESULT" 

600 PRINT " " 

610 FOR J=l TO S 

620 C(J)c:Nl (J)-4-N2<J) 

630 IF C (J) OA (J) THEN 670 

640 R»<J)="CORRECT" 

630 COaCO-t-l 

660 SOTO 690 

670 R$<J}«"«WRONB*" 

680 WO»WO-t>l 

690 PRINT J|"."|TAB(5)|C(J)|TAB<14)|A(J)|TAB(22)lR»<J) 
700 NEXT J 
710 NEXT I 

720 REM «*«»«»«*»»»»«« PROGRAM TERMINATION POINT «««»«««»»«<»««» 

730 PRINT 

740 PRINT "*«»»*««»««»»««»»«»«««»«««[«««H 

750 PRINT TAB(9)i "SCORE BOARD" 
760 PRINT "«»«»»*»«»«««««»«*«»»«»$»««««•• 
770 PRINT "QUESTIONS "I TAB (15) I CO+WO 
7S0 PRINT 

790 PRINT "NUMBER CORRECT "| TAB ( 20 ) | CO 
800 PRINT "NUMBER «WR0N8t"|TAB(20) | WO 
810 PRINT 

820 PRINT "YOUR SCORE I8"| (C0/(Cai-W0) )«100|"X" 
830 PRINT 
840 STOP 



lMRX^"aF'^3?§^l^^ HUMiElll 

i° 5 It i? ii 
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ENTE 

canti 

? 35 
RESU 
I TEM 



R TH 
R BE 
» 7, 1 

LTS 

MI 

1 26 



E RN 
TWEE 
25, 9 

□ F T 

NE 



<UITH fl 



SUERS* 
N > 

1 , 59 



HIS GROUP: 
YOURS RESULT 



35 
7 

125 

U 



**** 
QUES 

mi 

YOUR 



« « « « 
TI ON 



**** 
SCDR 
■»««« 
S 

ORRE 
URON 



E BORRD 
5 

6* 2 



□RRECT 
□RRECT 
WRDNS* 
UiRDNG* 
DRRECT 

««««*« 

*«««*• 



SCORE IS 60 y. 



MAJOR 


SYMBOL TABLE - MATH PRACTICE - ADD 


NAME 


• • 


DESCRIPTION 


Y 


• • 


SEED FOR RANDOM NUMBER : 


S 


• * 


NUMBER OF DIGITS IN PROBLEMS ] 


M 


• • 


NUMBER OF PROBLEMS : 


CO 


* • 


NUMBER CORRECT ] 


UO 


• • 


NUMBER UR0N6 : 


R$( > 


• ♦ 


RESULTS CORRECT/URONG j 


A( > 


• « 


ANSUERS INPUT 


Nl( > 


• * 


PROBLEM PART 1 


N2( > 


* • 


PROBLEM PART 2 


C< ) 


• • 


CORRECT ANSUERS 


J 


• • 


QUESTION NUMBER 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


RND 


« * 


GENERATES RANDOM NUMBERS 


■ TAB 


• • 


FORMATS PRINT LINES 


INT 


• • 


CONl^ERTS NUMBER TO INTEGER 


' DIM 


• • 


SINGLE DIMENSION ARRAY 
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MATH PRACTICE - SUBTRACTION 



Description 

This program provides an ideal device for introducing your children to 
the computer and building up their arithmetic abilities in subtraction. 
The level of difficulty of the problems is redefined during each run to 
meet changing skill levels. 

Funcdons of the Program 

This program produces a series of subtraction problems with randomly 
generated values. The complexity of the problems is determined by 
your choice of the number of digits in them. The individual running the 
program is given the problems and computes answers independently of 
the machine. The answers are then asked for by the computer and are 
compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prints five problems per line. The results are printed after each group of 
five problems, and a summary is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 
Data Entry 

All data is entered through the keyboard. 

Output Description 
See examples provided. 



10 CALL CLEAR 

20 REM MATH PRACTICE SUBTRACTION 

30 REM «*»«»«««««»»«»«««« DATA INITIALIZATION *»««»»«»«««»»««*« 

70 C0=0 

80 W0=0 

90 DIM R«<S> 

100 DIM A(5) 

110 DIM Nl<5) 

120 DIM N2(5) 

130 DIM C(5> 

140 PRINT "ENTER THE NUMBER OF DIGITS"! "FOR THE PRACTICE NUMBERS" I " (MAX. 

OF 3)"; 
150 INPUT S 

160 IF S>3 THEN 170 ELSE 190 

170 PRINT "ONLY TO A MAXIMUM OF 3."j"TRY AGAIN."; 
180 GOTO 140 

190 PRINT "HOW MANY ITEMS SHALL I PRINT"s"<S, 10, 13, 20 ETC.)"i 
200 INPUT M 
210 PRINT 

220 REM «»»«««}|[»»»»«»««««»« PROCESSING AREA «««»»««»»««««»»««»»« 

230 FOR 1=1 TO M/5 
240 FOR J=l TO 5 
250 RANDOMIZE 
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260 N1<J)=INT(RND«10'^S) 

270 N2<J)=INT<RND*10^S) 

27S IF N2(J)>N1(J)THEN 260 

280 NEXT J 

300 PRINT t "ADD! "1 1 1 

310 FOR J=l TO S 

320 FOR K=l TO S 

330 IF N1<J)>=10'^(S-K>THEN 360 

340 IF <S-K)+N1(J)»0 THEN 360 

345 PRINT " "I 

350 NEXT K 

360 PRINT Nl<J)|TAB((J*5)+3)> 

370 NEXT J 

380 PRINT 

390 FOR J=l TO 5 

400 FOR K=l TO 8 

410 IF N2<J) >=10^<S-K)THEN 440 

420 IF (S-K)+N2(J)=0 THEN 440 

425 PRINT " "J 

430 NEXT K 

440 PRINT N2<J)jTAB<<J«5)+3); 
450 NEXT J 

460 PRINT J" " 

530 PRINT 

550 PRINT "ENTER THE ANSWERS, (WITH A"i "COMMA BETWEEN)" 
560 INPUT A(1),A(2),A(3),A(4),A<5> 

570 REM »»«»»««»««»«»«**« PRINTS GROUP RESULTS *»**«*««»*«»»«««> 

580 PRINT 

590 PRINT "RESULTS OF THIS GROUP I " 
600 PRINT 

610 PRINT "ITEM" I TAB (7) I "MINE"; TAB (14); "YOURS"; TAB (22) J "RESULT" 

620 PRINT " " 

630 FOR J=l TO 5 

640 C(J)=N1(J)+N2(J) 

650 IF C(J)<>A(J)THEN 690 

660 R«(J)="CORRECT" 

670 C0=C0+1 

680 GOTO 710 

690 R«<J)="»WRONQ«" 

700 W0=W0-»-l 

710 PRINT STR»(J);".";TAB(6);C(J);TAB(14);A(J);TAB(22);R»(J) 
720 NEXT J 
730 PRINT 
740 PRINT 
750 NEXT I 

760 REM «»«««««»»«««« PROGRAM TERMINATION POINT »*««««*»»«»««««< 

770 PRINT 

780 PRINT "««*«»»»»*««««*»»»»«««»«»»»««" 

790 PRINT TAB (9); "SCORE BOARD" 

800 PRINT "»»««««««««««««««««*«««**««««" 

810 PRINT "QUEST IONS"; TAB ( 15) ;C0+W0 
820 PRINT 

830 PRINT "NUMBER CORRECT" ; TAB (20) ; CO 
840 PRINT "NUMBER »WR0NG»";TAB(20) ; WO 
850 PRINT 

860 PRINT "YOUR SCORE IS ";STR$( (CO/(CO+WO) ) «100) ; "%" 
870 PRINT 
880 STOP 



ENTER .. 
FOR. THE 



THE NU 

hB8 MflS5 itI 

CS* 10* 15, 

9 82 
33 71 



MBEI 

§1 



□ F DIi 
NUMBEI 



i|TS 



SHALL 
ETC . >? 

i 75 
68 



IMPRINT 
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INTER 
: □ M M fl 



IHg.,eMSWERS» <UITH fi 



^_ BETWEEN) 

? -24 ,11,71,7,85 
RESULTS DF THIS GROUPS 



ITEM MINE 



YDURS 



RESULT 



1 . -24 

2 • 1 1 

3 .-7 1 

4 . 7 

5 . 85 



-24 
85 



CORRECT 
CORRECT 
* W R N e * 
CORRECT 
CORRECT 



SCORE BORRD 
QUESTIONS 5 



NUMBER CORRECT 
NUMBER «k)RONG* 



YOUR SCORE IS 80 H 



MAJOR 

I 

I NAME 

I 

Y 
8 
M 
CO 
UO 

Rf( > 
A< > 
Nl( > 
H2( ) 
fc< ) 
J 



SYMBOL TABLE - MATH PRACTICE - SUBTRACTION 



DESCRIPTION 



«• SEED FOR RANDOM NUMBER 

NUMBER OF DIGITS IN PROBLEMS 

NUMBER OF PROBLEMS 

NUMBER CORRECT 

NUMBER URONO 

RESULTS CORRECT/URONO 

ANSWERS INPUT 

PROBLEM PART 1 

PROBLEM PART 2 

CORRECT ANSWERS 
** QUESTION NUMBER 



FUNCTIONS USED 



I NAME 

I 

I RND 
I TAB 
I INT 
I DIM 
I 



DESCRIPTION 



GENERATES RANDOM NUMBERS 
FORMATS PRINT LINES 
CONVERTS NUMBER TO INTEGER 
SINGLE DIMENSION ARRAY 
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MATH PRACTICE - MULTIPLICATION 



Description 

This program provides the ideal device for introducing your children to 
the computer and building up their arithmetic abilities in multiplication. 
The level of difficulty of the problems is redefined during each nm to 
meet changing skill levels. 

Functions of the Program 

This program produces a series of multiplication problems with ran- 
domly generated values. The complexity of the problems is determined 
by your choice of the number of digits in them. The individual running 
the program is given the problems and computes answers independently 
of tie machine. The answers are then asked for by the computer and 
are compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prints five problems per line. The results are printed after each group of 
five problems, and a summary is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 
Data Entry 

All data is entered through the keyboard. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM MATH PRACTICE MULTIPLICATION 

30 REM »tt»«**«««««»«>«»* DATA INITIALIZATION »«t««««><»t»««««« 

40 Y=l 

SO S=l 

60 M^SO 

70 C0=0 

80 WObO 

90 DIM Rt(5) 

100 DIM A<S) 

110 DIM NKS) 

120 DIM N2(S> 

130 DIM C(5> 

140 PRINT "ENTER THE NUMBER OF DIGITS"! "FOR THE PRACTICE NUMBERS"! " (MAX. OF 3)"| 
150 INPUT S 

160 IF S>3 THEN 170 ELSE 190 

170 PRINT "ONLY TO A MAXIMUM OF 3. "i"TRY A6AIN. "| 
180 GOTO 140 

190 PRINT "HOW MANY ITEMS SHALL I PRINT"! "(S, 10, IS, 20 ETC. >"| 
200 INPUT M 
210 PRINT 

220 REM «»*$»»*««***»»»**»« PROCESSING AREA *»«»*»»«««**««***««» 

230 FOR I»l TO M/5 
240 FOR J»l TO S 
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230 RANDOMIZE 

260 N1(J)=INT<RND*10^S) 

270 N2<J)oiNT(RND»10^S) 

280 NEXT J 

290 FOR J=l TO 5 

300 FOR K=l TO S 

310 IF Nl<J)>=10^<S-K)THEN 340 

320 IF (S-K)+Nl(J)a0 THEN 340 

330 NEXT K 

340 PRINT Nl<J)|TAB(<J«S)+3)| 

330 NEXT J 

360 PRINT 

370 FOR J=l TO S 

380 FOR Kol TO 8 

390 IF N1<J>>=10'^(S-K)THEN 420 

400 IF <S-K)+N2(J)=0 THEN 420 

410 NEXT K 

420 PRINT N2<J>jTAB(<J*3)-»-3>| 
430 NEXT J 

440 PRINT " » 

450 FOR a»l~T0~5 ~" 

460 FOR K=l TO 8+3 

470 NEXT K 

480 PRINT TAB<J*4) 

490 NEXT J 

500 FOR Jal TO S 

SIO PRINT 

520 NEXT J 

530 PRINT "ENTER THE ANSWERS, (WITH A"l"COMMA BETWEEN) *• 
540 INPUT A<1),A<2),A(3),A(4),A<5) 

550 REM *»«»«»««««»«««»»» PRINTS GROUP RESULTS «»«««»»»»«*»«»«» 

560 PRINT 

570 PRINT "RESULTS OF THIS GROUP i " 
580 PRINT 

590 PRINT " ITEM"; TAB <7) I "MINE" I TAB < 14) I "YOURS" I TAB (22) I ••RESULT" 

600 PRINT " " 

610 FOR J=l TO 5 

620 C(J)=N1 (J)»N2(J) 

630 IF C (J) OA (J) THEN 670 

640 R»(J>="CORRECT" 

650 C0=C0+1 

660 GOTO 690 

670 R«(J)«"«WRONQ«" 

680 WObWO+1 

690 PRINT Jj"."|TAB(5>jC<J)|TAB(14)|A(J)iTAB<22)iR»<J) 

700 NEXT J 
710 PRINT 
720 PRINT 
730 NEXT I 

740 REM »»»««««««»«««« PROGRAM TERMINATION POINT »«t««t«*«««»«»« 

750 PRINT 

760 PRINT "«««««»»*««»«»»»»««««»»«««|i««N 

770 PRINT TAB (9) I "SCORE BOARD" 

780 PRINT "»»«««««»«»«»«»«««««t«»t|[m«" 

790 PRINT "QUESTIONS" I TAB < 15) iCO+WO 
800 PRINT 

810 PRINT "NUMBER CORRECT"; TAB (20) | CO 
820 PRINT "NUMBER *WR0NG»"lTAB(20) iWO 
830 PRINT 

840 PRINT "YOUR SCORE I8"| <C0/(C0+W0) )«100| 
850 PRINT 
860 STOP 



ENTER. THE 

FDR THE - 



^^NUMBER OF DIGITS 
<t1RX, □F''i?r^'=^ NUMBERS 



30 
9 1 



30 
1 5 



1 8 

63 
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CDMMfl BETU)EEN> 

? 2730,5713,450,3785,1134 



RESULTS OF 
ITEM MINE 



THIS SROUPi 

YOURS RESULT 



2730 
5712 
450 
3784 
1 134 



§730 
713 
450 
378S 
1 134 



CORRECT 
«URaN6* 
CORRECT 
»URDN6* 
CORRECT 



**************************#* 

SCORE BOARD 
*«***♦*♦♦♦*««♦♦»«*»»»»»»«♦*» 
QUESTIONS 5 

M UMBER CORRECT 3 
UMBER ♦URONG* 2 

YOUR SCORE IS 60 



MAJOR 


SYMBOL TABLE - MATH PRACTICE - MUL1 


NAME 


• • 


DESCRIPTION 


Y 


• • 


SEED FOR RANDOM NUMBER : 


S 


• • 


NUMBER OF DIGITS IN PROBLEMS : 


M 


• • 


NUMBER OF PROBLEMS ] 


CO 


* • 


NUMBER CORRECT ^ 


UO 


• * 


NUMBER URONO : 


R$( 


> 


RESULTS CORRECT/URONO : 


A( > 


• • 


ANSUERS INPUT ^ 


NIC 


> 


PROBLEM PART 1 3 


N2< 


> 


PROBLEM PART 2 : 


C( > 


• * 


CORRECT ANSUERS 


J 


• • 


QUESTION NUMBER 


FUNCTIONS USED 


NAME 


« * 


DESCRIPTION 


RND 


• • 


GENERATES RANDOM NUMBERS 


TAB 


• • 


FORMATS PRINT LINES 


INT 


• • 


CONVERTS NUMBER TO INTEGER 


DIM 


• * 


SINGLE DIMENSION ARRAY 



IPLICATION 
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MATH PRACTICE - DIVISION 



Description 

This program provides the ideal device for building a child's arithmetic 
capability in division. The level of problem difficulty is easily modified 
to meet changing skill levels (without program modification). 

Functions of the Program 

This program produces a series of division problems with randomly 
selected values. The complexity of the problems is determined by the 
choice of the number of digits in the problems and the number of 
decimal digits for rounding accuracy in the answer. The individual 
running the program computes answers independently of the machine 
and enters the answers when they are requested. These answers are 
compared to the correct answers, and the results of the comparison are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent correct are printed. The randomly 
selected problems are printed five per line. The answers are requested, 
compared, and the results printed after each line of five problems is 
complete. 

Instructions for Use 

Run the program and respond to the questions asked by the program. 

Output Description 
See example provided. 

Comments 

Because of number storage differences between machines, the answer 
analysis routine (lines 570-740) should be verified. 



10 CALL CLEAR 

20 REM »«««»f»»«««»««»« MATH PRACTICE DIVISION **««»»»««»««»»« 

30 REM «NOTE« INDIVIDUAL MACHINE DIFFERENCES IN HANDLING 

40 REM NUMERIC ITEMS MAY CAUSE INCORRECT ANSWER ANALYSIS 

SO REM WHEN DEALING WITH LARGE ANSWERS WITH EXTENDED DECIMAL 

60 REM POSITIONS 

70 REM 

80 REM *«»««««»»«««»»»«»« DATA INITIALIZATION »»»»«»»«*»»«»»»«» 

120 C0=0 
130 W0=0 
140 DIM R$(S) 
ISO DIM A(S) 
160 DIM Nl(S) 
170 DIM N2<S) 
180 DIM C<3) 

190 PRINT "ENTER THE NUMBER OF DIGITS"! "FOR THE PRACTICE DIVISORS"! " (MAX. 

OF 3)"; 
200 INPUT S 
20S IF S>3 THEN 190 

210 PRINT "ENTER THE NUMBER OF DIGITS"! "FOR THE DIVIDEND"! 
220 INPUT S2 
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230 PRINT "ENTER THE NUMBER OF DECIMAL" I "POSITIONS FOR THE RESULT"! 
240 INPUT S3 

280 PRINT "HOW MANY ITEMS SHALL I PRINT"i"(S, 10, IS, 20 ETC.)"| 
290 INPUT M 
300 PRINT 

310 REM »»««»««»«*»««»«»»*» PROCESSING AREA »»»«»«*««««»»»»«««»« 

320 FOR 1=1 TO M/S 

330 FOR J=l TO S 

340 RANDOMIZE 

330 N1<J)=INT(RND«10^S) 

360 IF N1<J)=0 THEN 350 

370 N2(J)=INT<RND«10'*S2) 

380 NEXT J 

390 FOR J=l TO 5 

400 NEXT J 

410 PRINT 

420 FOR J=l TO 3 

425 L=LEN(STR*(N1<J))) 

430 PRINT TAB(7+L);" "iSTR$(J)j". ";STR»(Nl <J) ) | "/"jN2<J) 

433 PRINT 
440 NEXT J 
430 PRINT 18 

490 PRINT "ENTER THE ANSWERS, (WITH A" » "COMMA BETWEEN)" 
300 INPUT A(1),A<2>,A(3),A(4),A<3) 

510 REM PRINTS GROUP RESULTS »»»*<»«»»»»««»**» 

520 PRINT 

530 PRINT "RESULTS OF THIS GROUP i " 
540 PRINT 

550 PRINT " ITEM" | TAB (7) | "MINE" j TAB < 14) j "YOURS" ; TAB (22) ; "RESULT" 

360 PRINT " " 

570 FOR J=l TO 5 

590 C(J)=N2(J)/N1(J> 

600 C1=INT(C(J)*10'*(S3+1)) 

610 C2=INT(C(J)»10'^S3) 

620 IF (C1-(C2«10) )<5 THEN 640 

630 C2=C2+1 

640 C2= (C2/( 10^33) ) 

650 IF C2-A(J)>(1/10^(S3+1))THEN 700 

660 IF C2-A(J)<(-1/10^(S3+1))THEN 700 

670 R*(J)="CORRECT" 

680 C0=C0+1 

690 GOTO 720 

700 R«(J)="*WRDNQ«" 

710 W0=W0+1 

720 PRINT STR$(J){"."|TAB(6)sC2|TAB(14)|A(J){TAB(22){R«(J) 

730 C2=0 

740 NEXT J 

750 PRINT 

760 PRINT 

770 NEXT I 

780 REM «»«««»»»«»»»«««»«»«« TERMINATION POINT «*»«»«»«|:*»»«««*» 

790 PRINT 

800 PRINT "t»«»«»»»*»»»»««««»»»«»«»««»»" 
810 PRINT "«»«>«»SCORE BOARD«««««**»«««" 
820 PRINT "»«»«»«««»»«»«»«»«»««»«*««»«<" 

830 PRINT "QUESTIONS" I TAB (20) ;CO+WO| 
840 PRINT 

830 PRINT "NUMBER CORRECT" ; TAB (20) ; CO 
860 PRINT "NUMBER «WR0NG«"|TAB(20) | WO 

870 PRINT "YOUR SCORE IS"; TAB (21 ) 1 8TR!»( (CO/ (CO+WO) ) »100) | "X" 
880 PRINT "»<««»»«««»»»>*t»««»»««»»*t««" 

890 PRINT 
900 STOP 

910 FOR RIK=l TO 1000 
920 NEXT RIK 
930 RETURN 
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<f1flX. BF" 3>^ ■ 2 — --VISDRS 
.NT5i_IHl NUMBER L 

13, 20 ETC.>?-5 




1 . 333 y 9 

2 . 920 ✓ 26 

3 . 411 y Q 

4 . 432 y 47 

5 . 910 y 60 



7 37» 35. 3, 31 . 4f 9. I » 13. 2 

RESULTS OF THIS GRDUPi 

ITEM MINE YDURS RESULT 



i : _ 

3 . 51 

4 . 9.2 
9 . 15.2 




ii^ii^scDRE BDfiRD***»*55;ii; 
S5iinSNs******l************ 

NUMBER CORRECT 3 
NUMBER *URONG* 2 
YOUR SCORE IS 60 5S 



MAJOR SYMBOL TABLE - MATH PRACTICE - DIV 

I 



NAME 




* • 


DESCRIPTION 


Y 




• • 


SEED FOR RANDOM NUMBER 


S2 




• • 


NUMBER OF DIGITS IN DI^;iSOR 


S3 






NUMBER OF DIGITS IN DIVIDEND 


M 




• • 


NUMBER OF PROBLEMS 


CO 




• • 


NUMBER CORRECT 


WO 




• * 


NUMBER URONO j 


R«( 


> 


* • 


RESULTS CORRECT/WRONG : 


A( > 




• • 


ANSWERS INPUT ] 


Nl( 


) 


• • 


PROBLEM PART 1 ] 


N2( 


> 


* • 


PROBLEM PART 2 ] 


C< ) 




• • 


CORRECT ANSWERS ] 


J 




• • 


QUESTION NUMBER ] 



SION 



FUNCTIONS USED 



NAME 


• • 


DESCRIPTION 


RND 


• • 


GENERATES RANDOM NUMBERS 


TAB 


• • 


FORMATS PRINT LINES 


INT 


• * 


CONVERTS NUMBER TO INTEGER 


DIM 


• « 


SINGLE DIMENSION ARRAY 
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TEMPERATURE CONVERSION TUTOR 



Description 

This program produces a series of temperature conversion problems 
with randomly selected values. The type of conversion (Fahrenheit to 
Celsius, or the reverse) is determined by your response to the program 
question. 

Functions of the Program 

The individual running the program computes answers independently 
of the computer and provides the answers to the machine when re- 
quested. These answers are compared to the correct answers, and the 
results of the comparisons are printed immediately. The program ran- 
domly selects the values of the items and prints them five per line. At 
the end of the exercise, the number correct, the number wrong, and the 
percent correct are printed. After the completion of all problems, a 
summary of the results is printed. 

Instructions for Use 

Run the program and answer the questions asked. 
Data Entry 

All data is entered through the keyboard. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM TEMPERATURE CONVERSION TUTORIAL PROGRAM 

30 REM ««*»««»»»«»«»*«»»« DATA INITIALIZATION »»««*«««<«««««««« 

40 DIM Z(5) 
50 DIM A(3) 
60 DIM R«(S) 
70 DIM C<3) 
90 C0=0 
100 W0»0 
130 F2=-S0 
140 F 1=300 
150 C2=-23 
IbO C1«1S0 

170 PRINT "WHICH EXERCISE WOULD YOU"i"LIKE TO TRY?!" 

180 PRINT "CELSIUS TO FAHRENHEIT <C) OR" « "FAHRENHEIT TO CELSIUS <F) I " 
190 INPUT A* 

200 PRINT "HOW MANY PRACTICE EXERCISES"! "SHALL WE TRY 5, 10, IS.ETCi " 
210 INPUT N 

220 REM «««»««»««»««*««4[**« PROCESSING AREA «»«»»»««<»«*»«»*««»« 

230 FOR 1=1 TO N/3 
240 IF A«="C" THEN 290 
230 T1*="FAHRENHEIT" 
260 N1«=F1 
270 N2=F2 
280 GOTO 320 
290 T1«="CELSIUS" 
300 N1=C1 
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310 N2=C2 

320 PRINT "CONVERT THESE "»Tl$s "TEMPERATURES" 
330 FOR J=l TO 5 
340 RANDOMIZE 

350 Z<J)=INT(RND*<N1-N2+1)+N2) 
360 PRINT Z<J);" "» 
370 NEXT J 
380 PRINT 
390 PRINT 

400 PRINT "ENTER THE EQUIVALENT"! "TEMPERATURE"! " (WITH COMMAS BETWEEN)" 
410 INPUT A<1>,A(2>,A(3),A<4),A<5) 

420 REM ««««3|[»»»«»«»»«« PRINT RESULTS OF THE 6R0UP «««»»«*«»»»»* 

430 PRINT 

440 PRINT "RESULTS OF THIS BRDUPi " 
430 PRINT 

460 PRINT " ITEM" ; TAB (7) ; "MINE" ; TAB ( 14) j "YOURS" ; TAB <22) | "RESULT" 

470 PRINT " " 

480 FDR J=l TO 5 

490 IF A*="C" THEN 520 

500 C<J)=INT< <Z{J)-32)«5/9+.5) 

510 GOTO 530 

520 C<J)=INT<<Z(J)«9/5)+32.5) 

530 IF C<J)<>A<J)THEN 570 

540 R»<J)="CORRECT" 

550 C0=C0+1 

560 GOTO 590 

570 R*<J>="*WRONG«" 

580 W0=W0+1 

590 PRINT STR* ( J ) j " . " j TAB <7) j C < J ) | TAB < 14) ; A ( J ) j TAB (22) j R$ ( J) 
600 NEXT J 
610 NEXT I 

620 REM «««««««««««««« PROGRAM TERMINATION POINT «»««»«««»«»«»»« 

630 PRINT 

640 PRINT TAB (8) ; "SCORE BOARD" 

650 PRINT "»«««»««««««*««««««««»»*««»««" 

660 PRINT " QUEST IONS"; TAB ( 20 ) ;CO+WO 
680 PRINT "NUMBER CORRECT "; TAB ( 20 ); CO 
690 PRINT "NUMBER «WR0NB«"sTAB(20) ; WO 
700 PRINT 

710 PRINT "YOUR SCORE IS"|TAB (21) ; STR«( (CO/ (CO+WO) ) «100) | "%" 
720 PRINT "»»»««»»»»«»»»»«)|i»»»»»«»»»«««" 

730 STOP 



UH I C 
LIKE 
GELS 

HOU 
SHfiL 
? 5 
CONV 
TEM 
-19 

ENTE 
TEMP 
< W I T 
? -2 
RESU 



I US 
EN HE 

MANY 
L UE 

ERT 

PERfl 

-49 

tTH 
ROT 
H CD 
6 » -4 
LTS 



ERC^SE WOULD YOU 

Td FRHRENHEIT <C> 
IT TO CELSIUS <F> 



□ R 



PRACTICE EXERCISES 
TRY 5 » To , 15, ETC : 



THESE 
TURES 
118 134 



FAHRENHEIT 
124 



E^|QUI VRLENT 

MM AS BETWEEN) 
3,48,57,51 
□F THIS GROUPS 



ITEM MINE 



YOURS 



RESULT 



-26 

-a 

57 
5 1 



♦WRONG* 
*WRDNe* 
CORRECT 
CORRECT 
CORRECT 



SCORE BOARD 
**■»*»********«****»»«*«*«*■»« 
QUESTIONS 5 



B UMBER CORRECT 
UMBER *WRDN6* 



YOUR SCORE IS 60 5i 
**************************** 
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MAJOR 


SYMBOL TABLE - TEMPERATURE CONVERS] 


NAME 


• • 


DESCRIPTION 


Z< > 


* • 


TEMPERATURES TO CONVERT 


A( ) 


• • 


ANSWERS INPUT ] 


R« 


• • 


RESULTS CORRECT/WRONG 


C( > 


• * 


CORRECT ANSWERS 


CO 


* • 


NUMBER CORRECT ] 


UO 


• • 


NUMBER WRONG 1 


N 


• * 


NUMBER OF PROBLEMS ] 


Y 




RANDOM NUMBER SPPD 


F2 


• • 


MINIMUM F TEMP ] 


Fl 


• • 


MAXIMUM F TEMP 3 


C2 


• • 


MINIMUM C TEMP 3 


CI 


• • 


MAXIMUM C TEMP 3 


A$ 


• • 


CONVERSION DIRECTION 3 


Nl 


* • 


MAXIMUM RANDOM TEMPERATURE 3 


N2 




MINIMUM RANDOM NUMBER 3 


FUNCTIONS USED 


[ NAME 


• • 


DESCRIPTION 


[ INT 


* • 


CONVERTS NUMBERS TO INTEGERS 


[ RND 


* * 


GENERATES A RANDOM NUMBER 


: TAB 


• • 


FORMATS PRINT LINES 


[ DIM 


• • 


SINGLE DIMENSION ARRAYS 
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Metric Conversions 
Temperature Conversions 
Currency Conversions 
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METRIC CONVERSIONS 



Description 

This program produces conversions between standard measurements 
and metric units. 

Functions of the Program 

The program allows conversions of length, area, mass (weight), or liquid 
volume. The conversion can be either to or from the metric units. 



Instructions for Use 

Run the program and answer the questions asked. 

Output Description 
See example provided. 

Comments 

If additional conversion accuracy is required, modify the DATA state- 
ments in lines 1110-1320 to include the more accurate multiplier. 



10 CALL CLEAR 

20 REM METRIC CONVERSION PROGRAM 

30 REM COMPUTATIONS ARE APPROXIMATE CONVERSIONS BASED UPON TABLES 

40 REM PROVIDED IN THE SMALL BUSINESS ADMINISTRATION'S 

SO REM MANAGEMENT AID NO 214 AND NBS PUBLICATION 304A. 

60 REM »«»«»»«»3|:»«*»««»»»«»««»««4Ef««««»»«««»»«««f«»««*»»«*«»»«« 

70 REM <«*««»«««««««««««« DATA INITIALIZATION »»*««««»»«»»««««« 

80 M-8 

90 Ml=9 

100 M2=6 

110 M3=8 

120 DIM Ll$(8> 

130 DIM L2»<8> 

140 DIM L3(8) 

150 DIM Al*<9> 

160 DIM A2$(9) 

170 DIM A3 (9) 

180 DIM Wl$<6) 

190 DIM W2«(6) 

200 DIM M3(6) 

210 DIM Vl»(8> 

220 DIM V2*(8) 

230 DIM V3(8> 

240 FOR 1=1 TO M 

250 READ L1»(I),L2$(I),L3(I> 

260 NEXT I 

270 FOR 1=1 TO Ml 

280 READ A1$(I) ,A2$(I) ,A3(I) 

290 NEXT I 

300 FOR 1=1 TO M2 

310 READ W1$(I),W2$(I),W3(I) 

320 NEXT I 

330 FOR 1=1 TO M3 

340 READ Vl«<I),V2*<I),V3<I) 

350 NEXT I 

360 REM *ttttt*tt**t*ttttt**t*****tt*ttt***t*t*tt*ttt**t*tt*tt*t 
370 REM tt****t****$tt*t*t PROCESSING AREA ««»»«»«»««*»»«««««»»* 

380 PRINT "DO YOU WISH TO CONVERT" : "LENGTH (L) , AREA < A), " 
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390 PRINT "MASS(M), QR LIQUID VOLUME <V)" 
400 INPUT AA$ 
410 PRINT 

420 PRINT " CONVERSIONS AVAILABLE" 
430 PRINT 

440 PRINT "NBR FR0M";TAB<15> } " TO" 

450 PRINT " 

460 IF AA*="L" THEN 520 
470 IF AA*="A" THEN 650 
480 IF AA$="M" THEN 780 
490 IF AA$="V" THEN 910 

500 PRINT "ENTRY MUST BE L, A, M, OR V." 
510 BOTO 3B0 

520 REM PRINT FOR LENGTH *«««*««»«»*«»«»»«««« 

530 FOR 1=1 TO M 

540 PRINT IjTAB<3);Ll*(I)|TAB<18) JL2$(I) 
550 NEXT I 
560 PRINT 

570 PRINT "ENTER THE NUMBER OF THE": "CONVERSION TO BE USED"l"<0 WHEN DONE) 

580 INPUT N 

590 IF N=0 THEN 1040 

600 PRINT "ENTER THE NUMBER OF "sLl$<N)l 
610 INPUT LO 
620 L=L0«L3<N) 

630 PRINT L0;H*(N>;"="jL;L2$(N) 
640 GOTO 560 

650 REM PRINT OF AREA «»»»»««»»»««»«»»«»»»«« 

660 FOR 1=1 TO Ml 

670 PRINT IjTAB<5) jAl$(I)jTAB(lQ)5A2$<I) 
680 NEXT I 
690 PRINT 

700 PRINT "ENTER THE NUMBER OF THE CONVERSION TO BE USED"!"<0 WHEN DONE) 

710 INPUT N 

720 IF N=0 THEN 1050 

730 PRINT "ENTER THE NUMBER OF "jAl»(N)| 
740 INPUT AO 
750 A=A0«A3<N) 

760 PRINT A0;A1«(N) ; "=";A;A2«(N) 
770 GOTO 690 

780 REM *«*«»»««»*«»»»««»»»» PRINT OF MASS »*«««»»»»»«»««»««»«»$ 

790 FOR 1=1 TO M2 

800 PRINT I;TAB(5){W1*(I)|TAB(18);W2«(I) 
810 NEXT I 
820 PRINT 

830 PRINT "ENTER THE NUMBER OF THE" s "CONVERSION TO BE USED"i"<0 WHEN DONE) 

840 INPUT N 

850 IF N=0 THEN 1050 

860 PRINT "ENTER THE NUMBER OF "|Wl$(N)j 
870 INPUT WO 
.880 W=W0«W3(N) 

890 PRINT WO;Wl*(N)f "=";W5W2$(N) 
900 GOTO 820 

910 REM «««««««»»«««»»»««»« PRINT OF LIQUID VOLUME »»«««««*«»»«« 

920 FOR 1=1 TO M3 

930 PRINT I;TAB(5) jVl«<I)|TAB(18)|V2«<I) 
940 NEXT I 
950 PRINT 

960 PRINT "ENTER THE NUMBER OF THE" « "CONVERSION TO BE USED" I "(O WHEN DONE) 

970 INPUT N 

980 IF N=0 THEN 1050 

990 PRINT "ENTER THE NUMBER OF "|V1»<N)| 
1000 INPUT VO 
1010 V=V0«V3(N) 

1020 PRINT V0;V1$<N> I "o"|V|V2»<N) 
1030 GOTO 950 

1040 REM *****«****#♦»»**»* PROGRAM TERMINATION POINT »«»»*♦**«»» 
1050 REM ««)|E)|t««««««!|c«««««««»«««««««««»«««««««»»««««««y»«««:|E«««««« 

1060 PRINT 
1070 PRINT 
1080 STOP 
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1090 REM *t*t*t**t*t***t*tt*****t*t*****t**tttt***t*ttt*******t*t 
1100 REM »»««»«»»«»«*» DATA FOR INITIALIZATION $»»«»«»«»««»»«»**« 
1110 REM LENGTH ««*«*«««»»««»»«»««»«* 

1120 DATA INCHES, MILL I METERS, 25. 4, FEET, METERS, .3048 

1.1 30 DATA YARDS , METERS , . 9 1 44 , M I LES , K I LOMETERS , 1 . 6093 

1 1 40 DATA M I LL I METERS , I NCHES , . 0394 , METERS , FEET , 3 . 2808 

1 1 SO DATA METERS , YARDS , 1 . 0936 , K I LOMETERS , M I LES , . 62 1 4 

1160 REM «»»»»»««»«»«»«»*«««»«««»«»» AREA »»»»»«*«»»»»»«»«f 

1170 DATA SQ INCHES, SQ CM, 6.4516, SQ FEET,SQ METERS, .0929 

1180 DATA SQ YARDS, SQ METERS, . 8361 , SQ MILES, SQ KM, 2.59 

1190 DATA ACRES, SQ HECTARES, . 4047 

1200 DATA SQ CM,SQ INCHES, . 155, SQ METERS,SQ YARDS, 1.196 
1210 DATA SQ KM,SQ MILES, .3861 
1220 DATA SQ HECTARES, ACRES, 2. 471 

1230 REM MASS »««»«««*»*»«»$»*»«««»«» 

1240 DATA OUNCES, GRAMS, 28. 3495, POUNDS, KILOGRAMS, .4536 

1250 DATA SHORT TONS, MEGAGRAMS, .9, GRAMS, OUNCES, .0353 

1260 DATA KILOGRAMS, POUNDS, 2. 2046, MEGAGRAMS, SHORT TONS, 1.1 

1270 REM LIQUID VOLUME «»««»»«««»»»«»««««<« 

1280 DATA OUNCES, MILLILITERS, 30, PINTS, LITERS,. 4732 

1 290 DATA QUARTS , L I TERS , . 9464 , GALLONS , L I TERS , 3 . 7856 

1300 DATA MILLILITERS, OUNCES, .03, LITERS, PINTS, 2. 1134 

1310 DATA L I TERS , QUARTS , 1 . 0567 , L I TERS , GALLONS , . 2642 

1320 REM »««««»*»«««»«««»«««»»«»«««»»»««»««»««»«»««««*«*«»*»«*»«« 



MflSS<M>, OR LIQUID VGLUME<V> 
^ '■conversions flVfllLflBLE 



NBR 



FROM 



TO 



INCHES 
FEET 
VfiRDS 



M I LL I METERS 

M E T I 



. ERS 
METERS 

RILES KILOMETERS 
ILLIMETERS INCHES 



METERS 
METERS 



8 KILOMETERS 



FEET 
YARDS 
M I LES 



ENTER THE NUMBER OF THE 

CONVERSION TO BE USED 

<0 WHEN DONE>? 3 

ENTER THE NUMBER OF YARDS 

^10°YflRDS= 9.144 METERS 



DO YOU WISH TO CONVERT 
LENSTH<L>i_fiREfl<fl>, 
MFISS<H>» 

^ CONVERSIONS flVfllLRBLE 



OR LIQUID VOLUME<V> 



NBR 



FROM 



TO 



SQ INCHES 

SQ FEET 

SQ YARDS 

SQ MILES 
ACRES 

SQ CM 

SQ METERS 

SQ KM 

SQ HECTARES ACR 



SQ CM 

SQ METERS 

SQ METERS 

SQ KM 

SQ HECTARES 

SQ INCHES 

SQ YARDS 
SQ_g|LES 



ENTER THE NUMBER OF THE 
CONVERSION TO BE USED 
<0 WHEN DONE> 
? 4 

ENTER THE NUMBER OF SQ MILES 

10°SQ MILESa 23.9 SQ KM 

ENTER THE NUMBER OF THE 
CONVERSION TO BE USED 
<0 UHEN DONE> 
? 
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HAJOR 

I 

I NAHE 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



8YHB0L TABLE - METRIC CONVERSIONS 



DESCRIPTION 



H 
HI 
M2 
H3 
Ll«( 
L2«( 
L3( > 
AIX 
A2$( 
A3< > 
Ul$< 
W2$( 
W3( > 

V2*< 
V3( > 
N 
LO 
L 

AO 
A 
UO 
U 

VO 
V 



MAXIMUM ARRAY SIZE - LENGTH 
MAXIMUM ARRAY SIZE - AREA 
MAXIMUM ARRAY SIZE - WEIGHT 
MAXIMUM ARRAY SIZE - VOLUME 
STANDARD LENGTH UNIT 
METRIC LENGTH UNIT 
CONVERSION FACTOR 
STANDARD AREA UNIT 
METRIC AREA UNIT 
CONVERSION FACTOR 
STANDARD WEIGHT UNIT 
METRIC WEIGHT UNIT 
CONVERSION FACTOR 
STANDARD VOLUME UNIT 
METRIC VOLUME UNIT 
CONVERSION FACTOR 
CONVERSION OPTION NUMBER 
INPUT LENGTH 
CONVERTED LENGTH 
INPUT AREA 
CONVERTED AREA 
INPUT WEIGHT 
CONVERTED WEIGHT 
INPUT VOLUME 
CONVERTED VOLUME 



FUNCTIONS USED 



I NAME 

I 

I TAB 
I DIM 
I 



DESCRIPTION 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 



236 Tl BASIC Computer Programs for the Home 



TEMPERATURE CONVERSIONS 



Description 

This program provides an easy and fast capability to convert between 
the Celsius and Fahrenheit temperature systems. 

Functions of the Program 

The direction of the conversion is specified followed by the tempera- 
true that is to be converted. The converted temperature (in the other 
scale) is then printed. 

Instructions for Use 

Run the program and answer the questions asked. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM TEMPERATURE CONVERSION PROGRAM 

30 REM «««««««««*»««»<«»*« DATA INITIALIZATION »««««««*««**«««* 

40 F=32 
50 C=0 

60 REM *«««*«*«»«««««*««»* PROCESSING AREA .««««»»»«««««*««««««« 

70 PRINT "CELSIUS TO FAHRENHEIT(C) "i "OR FAHRENHEIT TO" I "CELSIUS (F)?" 

80 INPUT T* 

90 IF T$="C" THEN ISO 

100 PRINT "ENTER THE FAHRENHEIT"! "TEMPERATURE" 

110 INPUT F 

120 C=<F-32)*3/9 

130 PRINT "THE CELSIUS TEMPERATURE ISl "|C|* DEGREES" 
140 GOTO 210 

150 PRINT "ENTER THE CELSIUS"! "TEMPERATURE" 

160 INPUT C 

170 F=<C«9/S)+32 

180 PRINT "THE FAHRENHEIT TEMPERATURE"! "ISl "|F|* DEGREES" 
190 GOTO 210 

200 REM «»««*«»«««»«*« PROGRAM TERMINATION POINT «$«««««««««*««« 

210 PRINT 
220 PRINT 
230 STOP 




CELSIUS<F>? 
? F 

ENTER THE Ffi 
TEMPERfiTURE 
? 2 12 



tHE^CELSIUS TEMPERfiTURE ISt 
100 DEGREES 
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CELSIUS<F>? 

ENfER THE CELSIUS 
I^EMPERflTURE 

THE FflHRENHEIT^TEMPERflTURE 
is: 212 DEGREES 



MAJOR SYMBOL TABLE - TEMPERATURE CONVERSIONS 



NAME 


•* DESCRIPTION 


T$ 


CONVERSION TYPE (DIRECTION) 


F 


FAHRENHEIT TEMPERATURE 


C 


CELSIUS TEMPERATUE 
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CURRENCY CONVERSIONS 



Description 

This program converts from dollars to any other of the world's cur- 
rencies. 

Functions of the Program 

The exchange rate and currency name is entered along with the starting 
and ending range of dollars to be converted. The computations are then 
performed, and the results are printed for the range specified. 

Instructions for Use 

Run the program and answer the questions asked. 

Output Description 
See example provided. 



10 CALL CLEAR 

20 REM CURRENCY CONVERSION PROGRAM 

30 REM ttt*tt**t******t*t* PROCESSING AREA t«««««**t«**«**«*««t 

40 PRINT "ENTER THE EXCHANGE RATE, "CURRENCY TYPE" s " < 1 . E. , 2. 65, MARKS) " 
50 INPUT R,T* 

60 PRINT "ENTER THE RANGE OF VALUES": "<IN *) TO PRINT": » <I .E. , 5,10)" 
70 INPUT S,F 
80 PRINT 
90 PRINT 
100 PRINT 

110 PRINT "DOLLARS ";T« 

120 PRINT " " 

130 FOR I=S TO F 

140 PRINT I;TAB(5);" ";I«R 

150 NEXT I 

160 REM PROGRAM TERMINATION PaiNT*««««««**««* 

170 PRINT 
ISO PRINT 
190 PRINT 
200 STOP 



N^EB.. THE, EXCHANGE RATE, 
:yRRENCY TYPE 

I.E.i 2.65,MARKS> 
' 2.&5>MRRKS 

INTER THE RHNSE OF VALUES 
IN $> TD PRINT 
I . t 5 » 1 O > 
5 > 1 



DOLLARS MARKS 

"i'TTT.... liTii" 

6 15.9 

7 18.55 

8 21.2 

23.85 

10 26.5 
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MAJOR SYMBOL TABLE - CURRENCY CONVERSIONS 



I 1 

I NAME •* DESCRIPTION I 
I 1 

I R EXCHANGE RATE I 
IT* CURRENCY NAME I 
IS MINIMUM DOLLAR VALUE TO PRINT I 
IF MAXIMUM DOLLAR VALUE TO PRINT I 

II DOLLAR VALUE - OUT I 
I 1 

FUNCTIONS USED 
I 1 

I NAME DESCRIPTION I 
I 1 

I TAB »• FORMATS PRINT LINES I 
I 1 
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Dice Roller 

Wordgame 

Bingo 

Dart Scoring 
Tarot Card Dealer 
Jogger Record 



241 



DICE ROLLER 



Description 

This program rolls dice and prints the results in dice image format. 
Functions of the Program 

The program randomly selects the values for the number of dice to be 
rolled and then prints images of the dice showing their results. Dice 
images are separate subroutines. 

Instructions for Use 
Run the program. 

Output Description 

See examples provided. Dice images are produced for the number of 
dice requested. 

10 CALL CLEAR 

20 REM DICE PROGRAM 

30 REM DATA INITIALIZATION 

40 DIM D(6) 

50 Yal 

60 REM LOOP TO ROLL DICE 

70 PRINT "ENTER THE NUMBER OF DICE TO ROLL« 

80 INPUT Dl 

90 FOR Rl=l TO Dl 

100 A°R1«15 

110 60SUB 160 

120 NEXT Rl 

130 REM PROGRAM TERMINATION POINT 
140 END 

150 REM RANDOM ROLL GENERATOR 

160 RANDOMIZE 

170 LET Z=<RND*6+1) 

180 LET D<Rl>n:INT(Z) 

190 REM DICE PRINT OUT ROUTINE 

200 IF D(R1)-1 THEN 280 

210 IF D<R1)=2 THEN 340 

220 IF D<R1)=3 THEN 400 

230 IF D<Rl)o4 THEN 460 

240 IF D(R1)=5 THEN 520 

250 IF D(R1)°6 THEN 580 

260 RETURN 

270 REM DICE IMAGE PRINT 
280 PRINT TAB<A> 
290 PRINT TAB (A) 
300 PRINT TAB<A) 
310 PRINT TAB<A> 
320 PRINT TAB (A) 
330 RETURN 
340 PRINT TAB<A) 
350 PRINT TAB<A> 
360 PRINT TAB (A) 
370 PRINT TAB<A) 
380 PRINT TAB (A) 
390 RETURN 
400 PRINT TAB (A) 
410 PRINT TAB (A) 
420 PRINT TAB<A) 
430 PRINT TAB (A) 
440 PRINT TAB (A) 



"I I " 

"I t V 

"I I" 



'i 



"I » I" 
"I I" 
"I » I" 



"I » I" 
"I » I" 
"I « I" 
•■ _______ II I 
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430 RETURN 

460 PRINT TAB (A)?" " 

470 PRINT TAB(A);"I » » I" 
480 PRINT TAB(A);"I I" 
490 PRINT TAB<A);"I * « I" 

500 PRINT TAB<A)j" "; 

510 RETURN 

520 PRINT TAB<A);" 

530 PRINT TAB<A);"I « » I" 
540 PRINT TAB{A)s"I t I" 
550 PRINT TAB<A>;"I * « I" 

560 PRINT TAB(A);" "; 

570 RETURN 

580 PRINT TAB<A);" " 

590 PRINT TAB<A)|"I « « I" 
600 PRINT TAB<A)»"I * » I" 
610 PRINT TAB(A);"I « » I" 

620 PRINT TAB(A)}" "; 

630 RETURN 



;UN 



IJgR THE NUMBER OF DICE TD 



« * 
« « 
« * 



^||¥^R THE NUMBER OF DICE TO 
? 2 



« « 
« « 



lii'i'ER THE NUMBER OF DICE TO 



« * 
* * 
« * 



L.:„i 

I « ♦ 
I « « 
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MAJOR SYMBOL TABLE - DICE ROLLER 



[ NAME 


• * 


DESCRIPTION 


D( ) 


* * 


RESULTS OF ROLL 


Y 


♦ ♦ 


SEED TO RANDOM NUMBER GENERATOR 


• Dl 


• * 


NUMBER OF DICE TO ROLL 


[ Rl 


« * 


ROLL NUMBER 


FUNCTIONS USED 


NAME 


• * 


DESCRIPTION 


INT 


• • 


CONVERTS NUMBER TO INTEGER ! 


RND 


* • 


GENERATES A NUMBER RANDOMLY 


GOSUB 


* * 


BRANCHES TO AND RETURNS 


DIM 


* • 


SINGLE SIMENSION ARRAYS 
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WORDGAME 



Description 

The popular word search puzzle is automated by this useful home recre- 
ational program. You choose the level of complexity and the words to 
search for. The words that you enter during the program's execution 
will be randomly placed in the puzzle for you to find and circle. Don*t 
be surprised if you find them (if you find them!) written in any direc- 
tion, including backwards. No two puzzles are the same so family 
members will never tire of this educational and entertaining recreational 
program. 

Functions of the Program 

The program determines the size and complexity of the puzzle by yoiu: 
answers to the program's initial questions. It produces a puzzle with 
random selection of word location and direction. The filling in of blank 
spaces is also accomplished by the random selection of letters. 

Instructions for Use 

Run the program and answer the questions asked. 
Data Entry 

Words to be placed in the puzzle are entered through the keyboard. 
Output Description 

See example provided. Puzzle size is limited only by the available 
memory and size of the printing device. 



10 CALL CLEAR 

20 REM W0RD6AME PROGRAM 

30 PRINT "ENTER THE NUMBER OF COLUMNS"l"IN THE WORD BAKE (MAX OF 14)" 

40 INPUT C 

50 IF 014 THEN 30 

60 PRINT "ENTER THE NUMBER OF ROWS IN" I "THE GAME (MAX OF 14)" 

70 INPUT R 

80 IF R>14 THEN 60 

90 PRINT "ENTER THE NUMBER OF WORDS" I "TO FIND" 
100 INPUT N 

110 REM «««««««»»«»»*»«<« DATA INITIATION »»*«»»»»»*»««»«»««*«»« 

120 DIM L«(20,20) 
130 DIM W$(2S) 
140 DIM A»(26) 
ISO LET A«<1)="A" 
160 LET A*(2)="B" 
170 LET A«<3)="C" 
180 LET A*(4)»"D" 
190 LET A*(5)="E" 
200 LET A*<6)="F» 
210 LET A«<7)="B" 
220 LET A»<8)="H" 
230 LET A*<9)«»"I" 
240 LET A»<10)="J" 
2S0 LET A*(11)="K" 
260 LET A«(12)»"L" 
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270 LET A«(13>="M" 
280 LET A*(14)=»"N" 
290 LET A*<15)="0" 
300 LET A*<16)="P'' 
310 LET A«<17)="Q" 
320 LET A*(18)="R" 
330 LET A*(19)="S" 
340 LET A$<20)="T" 
350 LET A»(21)="U" 
360 LET A*(22)n"V'' 
370 LET A«<23)="W" 
380 LET A*(24)a"X" 
390 LET A«(2S)="Y" 
400 LET A«<26)a"Z" 
410 FOR 1=1 TO C 
420 FOR J=l TO R 
430 L»<I,J)«"." 
440 NEXT J 
450 NEXT I 
460 FOR K«l TO N 
470 PRINT "ENTER WORD" 
480 INPUT W»(K) 
490 60SUB 690 
500 NEXT K 

510 PRINT "I'LL SHOW YOU WHERE I' VE"« "HIDDEN THE WORDS IF YOU SAY" i "PLEASE" 
520 INPUT 6» 

530 IF Q*<>"PLEASE" THEN 550 

540 60SUB 620 

550 GOSUB 1480 

560 PRINT 

570 PRINT 

580 60SUB 620 

590 REM «»»»«»««»«»««««»«» TERMINATION POINT «»«*«*««»«»»«t««««« 

600 STOP 

610 REM «t««»»««»«»»«»«»« PUZZLE PRINT ROUTINE ««»«««««t«»««t««« 

620 FOR JBI TO R 

630 FOR I»l TO C 

640 PRINT L^dyJ)!** "| 

650 NEXT I 

660 PRINT 

670 NEXT J 

680 RETURN 

690 REM *««*«»««««»«««»»« WORD BREAKDOWN ROUTINE *»«*«««»»»*»»»» 
700 REM »«««««« SOME LANBUAGE DEPENDANCE IN THIS ROUTINE *«»«»»» 
710 REM 

720 LET LO=LEN<W*<K>) 

730 REM ***»»«»«»»»«»»»« RANDOM SELECTION OF DIRECTION «»»«««»«* 

740 LET T=l 

750 IF T<100 THEN 780 

760 PRINT "I COULN'T FIT THE WORDS" i "IN-PLEASE TRY AQAIN." 

770 60T0 600 

780 LET P=l 

790 LET P0=1 

800 LET Q=-l 

810 IF RND<».5 THEN 830 

820 LET 0=1 

830 LET Q0=-1 

840 IF RND<=.5 THEN 860 

850 LET QO=l 

860 LET D=2 

870 IF QOl THEN 890 

880 LET P=0 

890 IF QOOl THEN 910 

900 LET P0=0 

910 IF RND<.75 THEN 930 

920 LET D=l 

930 IF RND>.25 THEN 950 
940 LET D=0 

950 REM *»»»»»««»»»» RANDOM SELECTION OF START POINT «»>»»««««»» 

960 LET CO=C 
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970 LET RObR 

980 IF DOl THEN 1000 

990 LET RO=R-LO 

1000 IF DOO THEN 1020 

1010 LET CO=C-LO 

1020 IF DOl THEN 1050 

1030 RO=R-LO 

1040 CO=C-LO 

1050 IF COOC THEN 1070 

1060 LET P0=0 

1070 IF ROOR THEN 1100 

1080 LET P=0 

1090 RANDOMIZE 

1100 LET Zl=(RND«Ra/100-f.01)»100+P«L0 
1110 LET Z2«(RN0«C0/100^.01)«100i-P0»L0 
1120 LET X1=INT<Z1) 
1130 LET X2=INT<Z2) 

1140 REM t*»««*«»f»*»*«««t ENTRY QF WORD IN PUZZLE «t<«»«»«*«*««* 

1150 IF D=l THEN 1370 
1160 IF D=0 THEN 1270 
1170 FOR 1=1 TO LO 

1180 IF L«<X2+(I-l)»aa,Xl+(I-l)«Q)»"." THEN 1200 

1190 IF L»(X2->-(I-l)«Q0,Xl-f<I-l)*Q)<>SEQ«(W>(K>,I,l)THEN 730 

1200 NEXT I 

1210 LET T=0 

1220 FOR 1=1 TO LO-1 

1230 LET L«(X2-t-I«Q0,Xl-<-I«Q)=SE6$(W«(K},I-*-l,l) 
1240 NEXT I 

1250 LET L$(X2,X1)=SEG«(W$(K),1,1) 
1260 QOTO 1460 
1270 FOR 1=1 TO LO 

1280 IF L*<X2-KI-l)«a0,Xl)=".'' THEN 1300 

1290 IF L«(X2'^(I-1)»Q0.X1)<>SEG$(N$<K),I,1)THEN 730 

1300 NEXT I 

1310 LET T=0 

1320 FOR 1=1 TO LO-1 

1330 LET L«(X2-I-I*Q0,X1)»SEG«(W>(K),I-»>1,1) 
1340 NEXT I 

1350 LET L«(X2,X1)»SE6»(U«(K),1,1) 
1360 GOTO 1460 
1370 FOR 1=1 TO LO 

1380 IF L*<X2,X1+<I-1)»Q)="." THEN 1400 

1390 IF L«(X2,Xl-t-(I-l)«Q)<>SEGt>(W«(K), 1,1) THEN 730 

1400 NEXT I 

1410 LET T=0 

1420 FOR 1=1 TO LO-1 

1430 LET Le(X2,Xl-«-I»Q)=SE6$(U<<K),I-«-l,l) 
1440 NEXT I 

1450 LET L«(X2,X1)>>SEG»(W«(K),1,1) 
1460 RETURN 

1470 REM «*«tt««*»«*«»« FILL THE REMAINING POSITIONS **«*««»*««»« 

1480 FOR 1=1 TO C 

1490 FOR J=l TO R 

1500 IF L*<I,J><>"." THEN 1530 

1510 LET Z1=(RND«.26+.01)«100 

1520 LET L»<I,J)=A»{INT<Z1>) 

1530 NEXT J 

1540 NEXT I 

1550 REM ««*««*»»««»«»»»» PRINT OF T^ WORDS TO FIND «««««»«»«««< 

1560 PRINT 

1570 PRINT " WORD LIST" 

1580 FOR K=l TO N 
1590 PRINT W$(K)|" "| 
1600 NEXT K 
1610 RETURN 



Recreational Programs 247 




NUtlBER OF UORDS 



W^YDU WHERE I 'VE 
HE WDRDS IF YDU SflV 



RSE 



C ft R T E R 



§ M R 



ARTE 
P F E N 



g H ? 

§ » g 

I K X 

□ G R 



U R N □ kl 



U 



B U) 
P X 



MAJOR SYMBOL TABLE - W0RD6AME PRINT 



I 


NAME 


• * 


DESCRIPTION 


I 


C 




NUMBER OF COLUMNS 


I 


R 




NUMBER OF ROWS 


I 


R 




NUMBER OF WORDS IN PUZZLE 


z 


L$( ) 




LETTER ARRAY FOR OUTPUT 


I 


U$( > 




WORDS TO PLACE IN PUZZLE 


I 


A$( ) 




LETTER ARRAY FOR SELECTION 


I 


Y 




SEED TO RANDOM NUMBER GENERATOR 


I 


LO 




LENGTH OF WORD 


I 


QO 




SETS WORD PLACEMENT DIRECTION 


I 


P 




SETS WORD PLACEMENT DIRECTION 


I 


Q 




SETS WORD PLACEMENT DIRECTION 


I 


PO 




SETS WORD PLACEMENT DIRECTION 


I 


Zl 




RANDOMLY SELECTED ROW 


I 


Z2 




RANDOMLY SELECTED COLUMN 


I 


XI 




INTEGER OF ROW NUMBER 


I 


X2 




INTEGER OF COLUMN NUMBER 




FUNCTIONS USED 


I 


NAME 


• • 


DESCRIPTION 


I 


INT 




CONVERTS NUMBER TO INTEGER 


I 


RNO 


• « 


GENERATES A NUMBER RANDOMLY : 


I 


GOSUB 


• • 


BRANCHES AND RETURNS ] 


I 


DIM 


* • 


2 DIMENSION ARRAYS : 


I 


NOTE 


• • 




I 




• • 


SOME MACHINE DEPENDENCY FOLLOWS 


I 


LEN 


• • 


CALCULATES LENGTH OF WORD j 


X 


MIO$ 


• • 


SELECTS A LETTER FROM THE MIDDLE OF WORD ] 
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BINGO 



Description 

You'll never be without a BINGO game once youVe entered this 
program. 

Functions of the Program 

BINGO cards are printed for the number of players requested, with 
randomly selected number placement for recording the numbers called. 
The program then proceeds to select random numbers to be called and 
prints these numbers each time the return for the next call is pressed 
until a "BINGO" is achieved. 

Instructions for Use 

Run the program, and continue to press the return for the next call 
imtil someone BINGOs. Enter the word "BINGO" to terminate the 
program. 

Output Description 

See example provided. The number of cards printed is determined by 
your input to the question. For checking purposes, a list of all numbers 
called is produced after the BINGO is achieved. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

10 CALL CLEAR 

20 REM BINGO PROGRAM 

30 REM «»**««««»«»««tt OPEN STATEMENT FOR PRINTER «««««««**«««« 

40 REM ««« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT ««« 
SO OPEN #ls"RS232.BA=9600.DA=B" 

60 REM ««»»«*»««««««»««*«* DATA INITIALIZATION ««*««««««««««««« 

70 Y=l 

80 DIM C(2,75) 
90 DIM A$(6) 

100 READ A«(1),A«(2),A«(3),A$(4),A«<5) 
110 DATA ••B","I","N","G","0" 

120 PRINT "DO YOU WISH TO HAVE CARDS" i "PRINTED"; 

130 INPUT 6« 

140 IF G*="N" THEN 190 

150 GOSUB 620 

160 PRINT 

170 PRINT 

180 PRINT 

190 PRINT "PRESS THE RETURN FOR THE NEXT CALL-OR-ENTER BINGO" 

200 FOR 10=1 TO 75 
210 INPUT B$ 

220 IF B«=" BINGO" THEN 250 
230 GOSUB 1050 
240 NEXT 10 

250 PRINT "NUMBERS CALLED" 

260 PRINT 

270 FOR I-l TO 75 

280 IF C(1,I>=0 THEN 300 

290 PRINT A* (1/15+1) 5" -"jl 

300 NEXT I 
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310 PRINT 

320 REM TERMINATION POINT «««««««»««*«»««««»« 

330 STOP 

340 REM »««*«««««*»««««««» LINE PRINTING ROUTINE «««»«»««»«««««» 

350 FOR J=l TO 2 

360 PRINT #l8" "I 

370 NEXT J 
380 PRINT 
390 RETURN 

400 REM RANDOM DRAM OF CARDS «««*«»*«««*««««« 

410 LET Z=(RND«( (H-L)/100>+.0l)*100+L 

420 LET X=INT(Z) 

430 IF C<K,X)<>0 THEN 400 

440 LET C<K,X>=C(K,X)+i 

450 RETURN 

460 REM *««««««««««««««««» ARRAY CLEARS AND FILLS «»««««»«*««««« 

470 FOR L=l TO 2 
480 FOR K=l TO 75 
490 LET C(L,K>=0 
500 NEXT K 
510 NEXT L 

520 FDR L=0 TO 60 STEP 15 

530 LET H=L+15 

540 FOR T=l TO 3 

550 FOR K=l TO 2 

560 GOSUB 400 

570 NEXT K 

580 NEXT T 

590 NEXT L 

600 RETURN 

610 REM «««««»**«*«««««««t CARD PRINT ROUTINE »«»««««««««<[«««««« 

620 PRINT "HOW MANY CARDS SHOULD I" s "PRINT"} 

630 INPUT N 

640 IF N=0 THEN 1040 

650 PRINT "POSITION PAPER NOW" 

660 INPUT G$ 

670 FOR 1=1 TO N/2+.5 

680 GOSUB 460 

690 GOSUB 340 

700 FOR J=l TO 2 

710 PRINT #1:"! "jA^d)}" ! "j 

720 PRINT #l:A«<2)j" ! ";A«(3)a" • "tA«<4)8'' ! "lAXS)!** • 
730 NEXT J » » » » . 

740 PRINT #1 

750 GOSUB 340 

760 FOR K=l TO 5 

770 FOR J=l TO 2 

780 LET S=l 

790 FOR L=l TO 5 

800 FOR M=S TO S+14 

810 IF C<J,M)=0 THEN 920 

820 IF M<10 THEN 890 

830 IF K03 THEN 870 

840 IF L03 THEN 870 

850 PRINT #l8"! FRE "j 

860 GOTO 900 

870 PRINT #1:"! "jM;" 

880 GOTO 900 

890 PRINT #1:"! "jM;" "j 

900 LET C<J,M)=0 

910 GOTO 930 

920 NEXT M 

930 LET S=»S+15 

940 NEXT L 

950 PRINT #l8"! "I 

960 NEXT J 

970 PRINT #1 

980 GOSUB 340 

990 NEXT K 

1000 PRINT #1 
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1010 PRINT #1 
1020 PRINT #1 
1030 NEXT I 
1040 RETURN 

1050 REM «««««««*««««««««« RANDOM DRAMS FOR CALLS t»t«»«««*«*«*«« 

1060 LET Z=(RND*.75+.01)»100 
1070 LET X=INT(Z) 
1080 IF C(1,X)<>0 THEN 1060 
1090 LET C(1,X)=C<1,X)+1 
1100 LET J=INT(X/15>+1 
1110 PRINT A«<J)j"-";X 
1120 PRINT 
1130 RETURN 
1140 CLOSE «1 



>RUN 

DO YOU WISH TO HAVE CARDS 
PRINTED? Y 

HOW MANY CARDS SHOULD I 
PRINT? 2 

POSITION PAPER NOW 
7 



! B ! 


I ! N ! G ! 


! 


! B ! 


X ! 


N 


! 6 ! 


! 


! 4 ! 


18 ! 36 ! 48 ! 


64 • 


! 1 ! 


17 ! 


31 


! 46 ! 


6S ! 


! 8 • 


22 ! 38 ! 49 ! 


66 ! 


! 4 ! 


21 ! 


32 


! S3 ! 


68 ! 


• 9 • 


26 ! FRE ! 57 ! 


68 ! 


! 6 ! 


26 ! 


FRE 


• 55 • 


69 ! 


! 11 ! 


27 ! 43 ! 58 • 


69 ! 


! 8 ! 


27 ! 


40 


! 57 • 


70 • 


! 15 ! 


28 ! 45 ! 59 ! 


72 ! 


! 9 ! 


28 ! 


42 


• 58 ! 


73 • 



PRESS THE RETURN FOR THE 
NEXT CALL-OR-ENTER BINBO 
? 

6- 47 
? 

B- 3 

? 

I- 15 
? 

I- 18 

? 

I- 26 

? 

N- 30 
? 

B- 12 
? BINGO 

NUMBERS CALLED 

B - 3 
1-12 
.1 - 15 
1-18 
N - 26 
N - 30 
Q - 47 
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MAJOR SYMBOL TABLE - BINGO 



NAME 


* * 


DESCRIPTION 


C( ) 

A$< > 

10 

B$ 

Y 

Z 

X 

N 


• * 

• * 

• * 

• • 

• * 

• • 
• » 


NUMBERS CALLED/ON CARDS ARRAY 
LETTER CALLED 
COUNTER OF NUMBER OF CALLS 
BINGO INDICATOR 

SEED TO RANDOM NUMBER GENERATOR 
RANDOM NUMBER GENERATED 
INTEGER OF RANDOM NUMBER 
NUMBER OF CARDS TO PRINT 


FUNCTIONS USED 


NAME 


♦ • 


DESCRIPTION 


INT 
RND 
GOSUB 
DIM 


* • 

* * 

* * 

* • 


CONVERTS NUMBER TO INTEGER 
GENERATES A RANDOM NUMBER 
BRANCHES TO AND RETURNS 
2 DIMENSION ARRAYS 
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DART SCORING 



Description 

This program acts as scorekeeper for a darts match between individuals 
or teams. 

Functions of the Program 

The program allows for variable starting points and player numbers. 
Total scores are printed and the scores of each player are requested and 
subtracted from the totals prior to printing. 

Instructions for Use 

Run the program, and respond to the program*s messages. 
Data Entry 

All data is entered through the keyboard. 

Output Description 

See the example provided. 



1 CALL CLEAR 

20 REM DART SCORING PROGRAM 

30 REM DATA INITIALIZATION 

40 M=1000 
50 DIM S(10) 

60 PRINT "ARE YOU PLAYING AS" 8 "INDIVIDUALS <I), OR TEAMS": " <T)?" 

70 INPUT A« 

80 T«=" PLAYER" 

90 IF A$="I" THEN 110 

100 T»="TEAM" 

110 PRINT "HOW MANY ";T«;"S ARE PLAYING?" 
120 INPUT N 

130 PRINT "WHAT WILL YOU START WITH"s"301, OR 501?" 

140 INPUT SI 

150 FOR 1=1 TO N 

160 S<I)=S1 

170 NEXT I 

IBO PRINT 

190 PRINT 

200 PRINT 

210 REM ««*««*«««««*t«««««***««**t*««««***«««»»t««««**»**««*«**« 
220 REM ««*««««*««««»««««« PROCESSING STARTS t**Mttttt***t*t*^ 

230 FOR K=l TO M 

240 PRINT 

250 FOR 1=1 TO N 

260 PRINT TAB(10«<I-l))|T<i;I; 

270 NEXT I 

280 PRINT 

290 FOR 1=1 TO N 

300 PRINT TAB(10«<I-1)+1);S<I)| 

310 NEXT I 

320 PRINT 

330 PRINT 

340 FOR 1=1 TO N 

350 PRINT "ENTER THE SCORE FOR" i "PLAYER «"|I; 

360 INPUT SI 

370 IF SKO THEN 390 

380 IF S(I)-S1>=0 THEN 410 



Recreational Programs 



390 PRINT "ILLEGAL SCORE - TRY ASAIN" 

400 GOTO 350 

410 S<I)=S(I)-S1 

420 IF S(I)=0 THEN 450 

430 NEXT I 

440 NEXT K 

450 PRINT "PLAYER"? I J "WINS" 

460 PRINT "ARE YOU PLAYING AGAIN?" 

470 INPUT A* 

480 IF A«="Y" THEN 130 

490 REM $t*******1^*1|i1^*t1^t1l^t*ttt****$^^*t*t**tt$^ 

500 REM ****************** PROGRAM TERMINATION POINT *********** 

510 PRINT 
520 PRINT 
530 STOP 



ARE YOU PLAYING AS 
INDIVIDUALS <I), OR TEAMS 
<T)? 
? T 

HOW MANY TEAMS ARE PLAYING? 
? 2 

WHAT WILL YOU START WITH 
301, OR 501? 
? 301 



TEAM 1 TEAM 2 
301 301 

ENTER THE SCORE FOR 
PLAYER # 1 ? 100 
ENTER THE SCORE FOR 
PLAYER # 2 ? 50 

TEAM 1 TEAM 2 
201 251 

ENTER THE SCORE FOR 
PLAYER # 1 ? 100 
ENTER THE SCORE FOR 
PLAYER # 2 ? 50 

TEAM 1 TEAM 2 
101 201 

ENTER THE SCORE FOR 
PLAYER # 1 ? 99 
ENTER THE SCORE FOR 
PLAYER # 2 ? 50 

TEAM 1 TEAM 2 
2 151 

ENTER THE SCORE FOR 

PLAYER # 1 ? 3 

ILLEGAL SCORE - TRY AGAIN 

ENTER THE SCORE FOR 

PLAYER # 1 ? 2 

PLAYER 1 WINS 

ARE YOU PLAYING AGAIN? 

? N 
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MAJOR SYMBOL TABLE - DART SCORING 



NAME 


DESCRIPTION 


M 
Tt 

N 
SI 

S( > 
I 


MAXIMUM NUMBER OF SCORING ITERATIONS 
PLAYER/TEAM HEADING 
NUMBER PLAYING 

STARTING SCORE/SCORE PER PLAY 
SCORE ARRAY 
PLAYER INDICATOR 


FUNCTIONS USED 


NAME 


DESCRIPTION 


TAB 
DIM 


FORMATS PRINT LINES 
SINGLE DIMENSION ARRAY 
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TAROTCARD DEALER 



Description 

This program shuffles and deals-for the user-the requested number of 
cards from a Tarot deck. 

Functions of the Program 

The program initializes data through line number 700. The cards are 
then shuffled until the user "feels" that they are right. The program 
then prints the number of cards requested. 

Instructions for Use 

Run the program and respond to the program's messages. 
Data Entry 

All data is entered through the keyboard. 
Output Description 

See example provided. Cards are printed one at a time or continuously, 
with the "REVERSED" indicator shown when appropriate. 



5 CALL CLEAR 

10 REM TAROT PROGRAM 

20 REM *«*««>«««««*««»«««« DATA INITIALIZATION *««««t««*««««««« 

30 DIM C<7B) 
40 DIM S«(7S) 
50 DIM N*<78) 
60 FOR K0=1 TO 3 
70 FOR K«l TO 14 
80 LET K1=><K0-1)«14 
90 LET N$(K1+1)="I" 
100 LET N«(K1+2)="II" 
110 LET N$<K1+3)="III" 
120 LET N$(K1+4)=«"IV" 
130 LET N$(K1+5)'="V" 
140 LET N«<K1+6)="VI" 
150 LET N*<K1+7>="VII" 
160 LET N*<K1+8)="VIII" 
170 LET N$(K1+9)="IX" 
180 LET N«<K1+10)="X" 
190 LET N«(K1+11)="PAGE" 
200 LET N«<K1+12)='"KNI6HT" 
210 LET N*<Kl+13)o"QUEEN" 
220 LET N*<Kl+14>="KINe" 
230 NEXT K 
240 NEXT KO 
250 LET N$<67)="XI" 
260 LET N$<68)="XII" 
270 LET N«(69)="XI1I" 
280 LET N«(70)="XIV" 
290 LET N«<71)="XV" 
300 LET N4K72)="XVI" 
310 LET N«(73)="XVH" 
320 LET N«<74)="XVHI" 
330 LET N«<73>="XIX" 
340 LET N$<76)="XX" 
350 LET N$<77)«»"XXI" 
360 LET N«<7a)="0" 
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370 FOR 1=1 TO 14 

380 S«<I)="OF PENTACLES" 

390 NEXT I 

400 FOR 1=15 TO 28 

410 S*<I)="OF SWORDS" 

420 NEXT I 

430 FOR 1=29 TO 42 

440 S«<I)="OF CUPS" 

450 NEXT I 

460 FOR 1-43 TO 56 

470 S«<I)»"OF WANDS" 

480 NEXT I 

490 LET S«<57)="THE MAGICIAN" 

500 LET S*(58)="THE HIBH PRIESTESS" 

510 LET S«<59)»"THE EMPRESS" 

520 LET S«<60)«="THE EMPEROR" 

530 LET S«(61)="THE HIEROPHANT" 

540 LET S«(62>="THE LOVERS" 

550 LET S«<63)»"THE CHARIOT" 

560 LET S«< 64) ""JUSTICE" 

570 LET S*<65)="THE HERMIT" 

580 LET S*(66)="WHEEL OF FORTUNE" 

590 LET S«<67)="STRENQTH" 

600 LET S«(68)="HANBED MAN" 

610 LET S*<69> -"DEATH" 

620 LET S« (70) ""TEMPERANCE" 

630 LET S«<71)="THE DEVIL" 

640 LET S«(72)="THE TOWER" 

650 LET S*<73)»"THE STAR" 

660 LET S«(74)="THE MOON" 

670 LET S«<75)="THE SUN" 

680 LET S« (76) =" JUDGEMENT" 

690 LET S$(77)="THE WORLD" 

700 LET S«i<7B)="THE FOOL" 

710 Y-1 

720 PRINT "ENTER THE NUMBER OF CARDS TO" J "BE DEALT" 
730 INPUT N 

740 REM «««««««*«««««««««« LOOP TO SELECT CARDS «ttt«««t«««»»«>« 

750 FOR J 1=1 TO N 
760 GOSUB 1070 
770 NEXT Jl 

780 PRINT "THE CARDS HAVE BEEN SHUFFLED DO YOU WISH A RE-SHUFFLE"! " <Y OR N) " 

790 INPUT G« 

800 IF G«="N" THEN 860 

810 PRINT "THE CARDS ARE BEING" s "RE-SHUFFLED NOW" 
820 FOR 1=1 TO 78 
830 C<I)=0 
840 NEXT I 
850 GOTO 750 

860 PRINT "DO YOU WISH TO SEE ALL OF THE CARDS AT ONCE <Y OR N) " 

870 INPUT G« 

880 IF G«="Y" THEN 900 

890 PRINT "PRESS ENTER TO TURN OVER THE": "CARDS" 

900 REM »»*»««*» ROUTINE TO FIND AND PRINT THE CARDS **««*«««»«« 

910 FOR J=l TO N 

920 IF G*<>"N" THEN 940 

930 INPUT H« 

940 FOR U=l TO 78 

950 IF C<U)<>J THEN 1020 

960 M«=" 

970 IF RND<.5 THEN 990 
980 LET M«=" (REVERSED) " 

990 PRINT "CARD#"5 J; "IS. ";N« (U) J " ";S*(U);" ";M* 

1000 REM 

1010 GOTO 1030 

1020 NEXT U 

1030 NEXT J 

1040 REM «««$*«««««»«««««« PROGRAM TERMINATION POINT «*«««««*«««« 

1050 STOP 

1060 REM »««««*«««««« RANDOM CARD SELECTION ROUTINE «««*««««««t«« 
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1070 LET Z=(RND«7B+1) 
1080 LET X=INT{Z) 
1090 IF C(X)<>0 THEN 1070 
1100 LET C<X)BC(X)-i-Jl 
1110 RETURN 



^|nTER THE NUMBER DF CfiRDS TO 

2 19 

THE CRRDS HRVE BEEN SHUI 

?? Sr"n> ^ re-IhufflI 

THE CRRBS RRE BEING 
RE-SHUFFLE^ .._R«^*i'w 

THE^ CRRDS ( 
Db YDU UISI 
CY^QR N> 

Bn_Yay_W ISH_TO.SEE ^LL_DF 



i^S^i^i[tu?g[;i 



[FLED 



■FLED 



CRRDS RT Once <y dr n> 



CRRDtt 
CRRDtt 



CRRD 

< REV 
CRRD 

< REV 
CRRD 

CRRD 

< RE V 
CARD 

CRRD 



IS. KING DF CUPS 
IS. I I I OF CUPS 
□F SUORDS 
4^13. I I DF WANDS 
5 IS. IV DF WANDS 

□F WANDS 



IS. QUEEN 
ERSED > 
# 7 IS. I OF PENTACLES 

ir>i.rif • ><VI I I THE MQQN 
E R S E D > 

2«I.^If- QUEEN DF CUPS 
ERSED > 

tr»i9T,{S.VI DF CUPS 
ERSED > 



HAJOR SYMBOL TABLE - TAROT CARD DEALER 



NAME 


• • 


DESCRIPTION 


C< ) 


• • 


CARD SELECTED INDICATOR ARRAY 


N$( > 


• • 


CARD VALUE ARRAY 


S«< > 


• • 


SUIT ARRAY 


N 


• • 


NUMBER OF CARDS TO DEAL 


H$ 


• • 


DUMMY TIMING VARIABLE 




* • 


INDICATOR IF REVERSED 


Z 


• • 


GENERATED RANDOM NUMBER 


X 


• • 


INTEGER OF RANDOM NUMBER 


Y 


• • 


SEED TO RANDOM NUMBER 


FUNCTIONS USED 


NAME 


* • 


DESCRIPTION 


INT 


* • 


CONVERTS NUMBER TO INTEGER 


RND 


• • 


GENERATES A NUMBER RANDOMLY 


GOSUB 


• • 


BRANCHES TO AND RETURNS 


DIM 


• • 


SINGLE DIMENSION ARRAY 
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JOGGER RECORD 



Description 

The jogger or jogging family will find this a useful addition to the pro- 
gram library. The program produces a graphic display of their jogging 
activities. 

Functions of the Program 

The program reads the data items and produces a graphic output repre- 
senting the distance traveled and either speed or time indicators. The 
program prints daily results and consequentiy considers days not 
recorded m the output. 

Instructions for Use 

Enter your jogging activity at the time it occurs as DATA statements to 
the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the data is: 

Month-Day-Year (numeric), Miles, Whole hours run, 
Additional minutes run 
Note the indicator for the end of data. 

Output Description 

See examples provided. Separate outputs are produced based upon the 
speed or time option selected. The asterisks, *** (as shown), are used 
to indicate performance and are scaled to indicate time run or miles/ 
hour. To change the scaling factor, change the values of variables SI and 
S2 in the program. 

(Note: This program was designed for printer's output; for screen's output, 
some format modifications are necessary.) 

10 CALL CLEAR 

20 REM JOGGER PROGRAM 

30 REM «««««»»««««»»*» OPEN STATEMENT FOR PRINTER «««««*«*««*«« 

40 REM «*« CHECK YOUR PRINTER MANUAL FOR CORRECT STATEMENT *»« 

50 OPEN «»1:"RS232.BA««9600.DA=8" 

60 LET Sl»4 

70 LET N=32000 

80 DIM M«<12) 

90 DIM D(12) 

100 FOR 1=1 TO 12 

110 READ M$<I),D<I) 

120 NEXT I 

130 PRINT "ARE YOU INTERESTED IN SPEED"* "OR TIME" 
140 INPUT Q« 
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150 PRINT 

160 PRINT "ALIGN FOR PRINTINS" 
170 INPUT X« 
180 PRINT 

190 PRINT #1:" D I S T A N C E"; 

200 IF G$=" SPEED" THEN 250 
210 LET S2=12 

220 PRINT #1:TAB(53)|"T I M E" 

230 PRINT #1:" DATA "; SI ; "*/MILE"; TABOO) {821" «/MINUTE" 

240 GOTO 290 
250 LET S2=l 

260 PRINT ttl:TAB<53);" SPEED" 

270 PRINT #lt"DATE " jSl j "«/MILE";TAB<S3) jS2j "»/MINUTE" 

280 PRINT #1:" MILES"; TAB <64) j "MINISEC" 

290 REM PROCESSING AREA »«*«»««««»»«««*«««««« 

300 PRINT 

310 FOR 1=1 TO N 

320 READ CO 

330 IF C0=0 THEN 910 

340 READ MO 

350 READ T0,T1 

360 LET T1=T1+T0*60 

370 LET El=Tl/<60/S2) 

380 LET E2=T1 

390 IF G*<>" SPEED" THEN 460 

400 LET E1=T1/S2 

410 LET T2=T1*60 

420 LET M2=<T1*60>/M0 

430 LET M3=INT(M2/60) 

440 LET M4=INT<INT< (M2/60-M3)*100)«.6) 

450 LET E1=M3/S2 

460 LET M1=»INT<C0/10000) 

470 LET C0=C0-M1» 10000 

480 LET D1=INT(C0/100> 

490 LET C0=C0-D1*100 

500 LET Y1=INT<C0) 

510 IF Y1/4=INT<Y1/4)THEN 530 

520 LET D<2)=»D<2)+1 

530' 60SUB 690 

540 PRINT #l:M«(Ml)sDl>TAB<8);"I"; 
550 FOR J=l TO M0*S1 
560 PRINT #l8"«"j 
570 NEXT J 

580 PRINT #1:TAB<34);M0; 
590 PRINT #l:TAB(41)j"I"| 
600 FOR J=l TO El 
610 PRINT #l:"»"j 
620 NEXT J 

630 IF G*»" SPEED" THEN 660 

640 PRINT #l:TAB<65)i"(";E2;")" 

650 GOTO 670 

660 PRINT ttl:TAB<63) jM3; ;M4 

670 NEXT I 

680 REM **«««**## CATCH UP ROUTINE FOR DAYS MISSED »«»«»»«««««»« 

690 IF S9=0 THEN 860 
700 IF D1=S9+1 THEN 880 
710 IF D1>S9+1 THEN 740 
720 D5=D<S8) 
730 GOTO 750 
740 LET D5=D1-1 
750 IF S9+1>D5 THEN 790 
760 FOR L=S9+1 TO D5 

770 PRINT #l:M*(S8);L;TAB(8)s"I";TAB<41);"I" 
780 NEXT L 

790 IF M1=SB THEN 880 

BOO 39=0 

810 LET S8=S8+1 

820 IF S8<13 THEN 700 

830 LET SB=1 

840 LET S7=S7+1 
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850 GOTO 700 
860 LET S7=Y1 
870 LET S8=M1 
880 LET S9=D1 
890 RETURN 

900 REM ««««*«««**»*«*»««« TERMINATION POINT ««««»**«»««««*»«««« 

910 STOP 

920 REM »««««««*«««««**«*««»ii[iKl|c«««*«««««*«««««*««*4[»*««t«<(««»««« 

930 REM DATA FOR INITIALIZATION 

940 REM **«»««»*«*i|(«»*««««i|c*«*)|ci|c««*«««««**«««i|i«««**«*«*«****]|[««* 
950 DATA JAN, 31 , FEB, 28, MAR, 31 , APR, 30, MAY, 31 , JUN, 30, JUL, 31 , AUG, 31 
960 DATA SEP, 30, OCT, 31, NOV, 30, DEC, 31 

970 REM ««««««««««*««««««« DATA ENTRIES FOLLOW «*««««««»*««»«««4[ 

980 DATA 112878,3,1,0 
990 DATA 120178,3,1,0 



1000 


DATA 


120278,4, 


1,0 


1010 


DATA 


120378,4, 


0,55 


1020 


DATA 


120578,4, 


1,05 


1030 


DATA 


121278,4, 


1, 15 


1040 


DATA 


121378,5, 


1,30 


1050 


DATA 


121478,6, 


1,40 


1060 


DATA 


121678,4, 


0,59 


1070 


DATA 


121778,4, 


1,0 


1080 


DATA 


121878,3, 


1,0 


1090 


DATA 


121978,3, 


1,5 


1100 


DATA 


122078,3, 


1,5 


1110 


DATA 


122178,3 


0,59 


1120 


DATA 


122278,3, 


0,57 


1130 


DATA 


122378,3 


,0,55 


1140 


DATA 


122578,4 


1,10 


1150 


DATA 


122678,3 


,1,0 


1160 


DATA 


122878,4 


,0,50 


1170 


DATA 


122978,5 


,1,10 


1180 


DATA 


123178, 1 


.75,0,30 


1190 


DATA 


010379, 1 


,0,15 


1200 


DATA 
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>RUN 

flRE^Ygy INTERESTED IN SPEED 
OR TIME 
? TIME 

QLISN FDR PRINTING 







DISTANCE 




TIME 








DATA 


4 t/MILE 




12 4/MINUTE 








NOV 


28 


Itttttttttttt 


3 


It**««t«««|c«« 


< 


60 


) 


NOV 


29 


I 




I 








NOV 


30 


I 




I 








DEC 


1 


Itttttttttttt 


3 


Itttttttttttt 


( 


60 


) 


DEC 


2 




4 


I««««*«t»»«t« 


( 


60 


) 


DEC 


3 


ltttttt*ttt**t*tt 


4 


I«««««««»««» 


< 


53 


) 


DEC 


4 


I 




I 








DEC 


5 




4 


I«««*««««««««« 


< 


65 


) 


DEC 


6 


I 




I 








DEC 


7 


I 




I 








DEC 
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I 




I 








DEC 
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I 




I 








DEC 


10 


I 
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I 
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3 


I*««*«*««««*«« 
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65 
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DEC 


21 
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3 
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DEC 


22 
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DEC 


23 
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24 


I 




I 








DEC 
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I«»*«««««t««««« 


< 


70 


> 


DEC 


26 




3 


I»4[«»«*«««t»« 


< 


60 


> 


DEC 


27 


I 




I 








DEC 


28 


I«»««»««««««4c««|;« 


4 


I««»*«««*»« 


< 


50 


) 


DEC 


29 


I «««««««««««««««««*«« 


5 


I«««««««««««t»« 


( 


70 


) 


DEC 


30 


I 




I 








DEC 


31 


I««**»«« 


1.73 


I»«««»« 


< 


30 


) 


JAN 


1 


I 




I 








JAN 


2 


I 




I 








JAN 


3 


I«»*t 


1 


Itt* 


( 
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MAJOR SYMBOL TABLE - JOGGER RECORD 



r XIAMC 

Nflnt 


• • 


DtoCRIPTION 


r CI 
a X 


• » 


9rt.liU sLRLINu r AC FUR 




• ♦ 


TTMC CPAI TMfS CAfTnD 


N 


♦ ♦ 




n V \ / 


• • 


nun 1 n riHnt HrvrCHT 




• • 


UflYS IN nONTH ARRAY 




• * 


TtATC 


MO 


« « 


MILES RUN 


TO 


* * 


HOURS RUN 


Tl 


* f 


MINUTES RUN 


El 


• « 


NUMBER OF » TO PRINT 


E2 


• • 


DISTANCE OUT 


M3 


• • 


HOURS OUT 


M4 


• • 


MINUTES OUT 


Ml 


• • 


MONTH 


Dl 


• • 


DAY 


Yl 


* • 


YEAR 


DS 


• • 


CATCHUP DAYS FOR THOSE MISSED 


S7 


• « 


YEAR NUMBER 


S8 


♦ ♦ 


MONTH 


S9 




DAY 


FUNCTIONS USED 


NAME 


• • 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINE 


INT 


• • 


CONVERTS NUMBER TO INTEGER : 


GOSUB 


* • 


BRANCHES AND RETURNS 


DIM 


• • 


SINGLE DIMENSION ARRAYS 
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Holilijfisi's Diaries 



Golf 

Fishing 

Photography 

Greenhouse 

CB Radio 

Bowling 

General Purpose Diary 



265 



GOLF 



Description 

This program produces a diary for the golf enthusiast. It can interpret 
and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted print of all, or selected, items from 
the data records. Supplemental items can be defined by indicating the 
number of items and their names in the first data record. Supplemental 
items can then be read and printed in the same way as the standard 
items. 

Instructions for Use 

Prior to numing the program, define the supplemental data items that 
you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered using DATA statements. 
Data Formats 

See the sample data. The first record defines supplemental items and 
their tities: 

Number of items, Tide 1, Tide 2, etc. 
Diary entries are then recorded in the following form: 

Date, Course name. Score, Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all or selected items to be 
printed. 



10 CALL CLEAR 

20 REM GOLFER'S DIARY PROGRAM 

30 REM *»««««»»»»«««»»»«« DATA INITIALIZATION »»«»»«»«m«»«*«« 

40 K1=0 

50 M=1000 

60 DIM S»(10) 

70 DIM H$(10) 

80 READ N 

90 IF N=0 THEN 130 

100 FDR K=l TO N 

110 READ H$(K} 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE ITEMS < Y OR N )?" 

140 INPUT A* 

150 IF A$="Y" THEN 330 

160 PRINT "SHALL WE SELECT BASED UPON"! "COURSE (C) OR OTHER (0)?" 

170 INPUT X2* 

180 IF X2$="C" THEN 290 

190 PRINT "ENTER THE ITEM HEADING TO" « "SEARCH FOR" 
200 INPUT Xl$ 



266 It BASIC Computer Programs for the Home 



210 IF N=0 THEN 270 

220 FOR K=l TO N 

230 IF X1$<>H*(K)THEN 230 

240 K1=K 

2S0 NEXT K 

260 IF KlOO THEN 300 

270 PRINT "ITEM HEADING NOT FOUND -"l-'TRY AGAIN" 
280 SOTO 130 
290 Xl*=" COURSE" 

300 PRINT "ENTER THE VALUE OF ";Xl«r' TO PRINT" 
310 INPUT X» 

320 REM ««««««««««»«»««»»»«»»«« HEADINGS «»«»«»»*»»«««»»»**»»««f 

330 PRINT 
340 PRINT 
350 PRINT 

360 PRINT "DATE" ; TAB <7>; "COURSE" J TAB (14) I "SCORE"; 

370 IF N=0 THEN 410 

380 FOR K=l TO N 

390 PRINT TAB((K-1>«S+20);H»<K); 

400 NEXT K 

410 PRINT 

420 PRINT " " 

430 IF N=0 THEN 470 
440 FOR K=l TO N 
450 REM 
460 NEXT K 
470 PRINT 

480 IF A$="N" THEN 720 

490 REM tt*t******$*t*t*t*tt*t*t**tttt*t***Utt*tt*tt**t**tt***t 
500 REM «»««««««««»««»««« PRINT OF ALL ITEMS »«t»t«t«»«»«««»»«** 

510 FOR 1=1 TO M 
520 READ D$ 

530 IF D*="END" THEN 670 

540 READ C$,S 

550 IF N=0 THEN 590 

560 FOR K=l TO N 

570 READ S$(K) 

580 NEXT K 

590 PRINT D$tTAB(7);C*;TAB<14) jS; 

600 IF N=0 THEN 640 

610 FOR K=l TO N 

620 PRINT TAB((K-l)»5-f20);S»(K); 

630 NEXT K 

640 PRINT 

650 NEXT I 

660 REM «*««««»«**«««««»*«»««***««««««««**«««**«»*«*««*»***«***« 
670 REM *««*«»««»««»«»*«« PROSAM TERMINATION POINT ««»»»«*««»»»» 

680 PRINT 
690 PRINT 
700 STOP 

710 REM »*««»«»««*»««»»«»»*«««»**«t»«»«m««*f «»«*«»»*««««*»*««« 
720 REM **»«««««*«»*«»»«« PRINT SELECTED ITEMS ««««»«»«««*«»«»*> 

730 FOR 1=1 TO M 
740 READ D$ 

750 IF D$="END" THEN 670 

760 READ C*,S 

770 FOR K=l TO N 

780 IF N=0 THEN 800 

790 READ S$<K) 

800 IF KlOO THEN 830 

810 X3$=C* 

820 GOTO 850 

830 IF KOKl THEN 850 

840 X3$=S«<K) 

850 NEXT K 

860 IF X*<>X3* THEN 930 

870 PRINT D$;TAB<7) ;C*;TAB<14);8; 

880 IF N=0 THEN 920 

890 FOR J=l TO N 

900 PRINT TAB<(a-l)»4+21);S«<J)| 



Hobbyist's Diaries 267 



910 NEXT J 
920 PRINT 
930 NEXT I 
940 GOTO 670 

950 REM »««»«««««««»«««*««»«»]|c««iK««««««««««««««»««»«««»««««*«««« 
960 REM $***lHii$*tttt DATA FOR INITIALIZATION FOLLOWS »»«»«»«««» 
970 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
980 DATA 2, WIND, TEMP 
990 REM 

1000 DATA JUL 1, LINCOLN, 77, HI, HI 
1010 DATA JUL 3,VALLEY,79,L0,L0 
1020 DATA JUL 6, LINCOLN, 78, MED, MED 
1030 DATA JUL 8,VALLEY,66,L0,L0 
1040 DATA END,,,, 



>RUN 

SHALL I PRINT ALL OF THE 

ITEMS < Y OR N )? 

7Y 



DATE COURSE SCORE WIND TEMP 



JUL 1 LINCOLN 77 HI HI 

JUL 3 VALLEY 79 LO LO 

JUL 6 LINCOLN 78 MED MED 

JUL 8 VALLEY 66 LO LO 



>RUN 

SHALL I PRINT ALL OF THE 

ITEMS ( Y OR N )? 

?N 

SHALL WE SELECT BASED UPON 
COURSE <C> OR OTHER (0)7 
70 

ENTER THE ITEM HEADING TO 

SEARCH FOR 

7WIND 

ENTER THE VALUE OF WIND TO PRINT 
7L0 



DATE COURSE SCORE WIND TEMP 



JUL 3 VALLEY 79 LO LO 
JUL 8 VALLEY 66 LO LO 





MAJOR 


SYMBOL TABLE - GOLF 


I 


NAME 


.* DESCRIPTION 


I 


Kl 


COUNT INDICATOR 


I 


M 


MAXIMUM NUMBER OF DATA READS 


I 


S$( ) 


SUPPLEMENTAL ITEM TRANSACTION VALUE 


I 


H$< ) 


SUPPLEMENTAL ITEM HEADING NAME 


I 


N 


NUMBER OF SUPPLEMENTAL ITEMS 


I 


D$ 


*• TRANSACTION D^TE 


I 


C$ 


TRANSACTION COURSE 


I 


S 


TRANSACTION SCORE 


I 


X2» 


STANDARD ITEM TO SELECT 


I 


Xl» 


SUPPLEMENTAL HEADING TO SELECT 


I 


X$ 


t* VALUE OF ITEM TO SELECT 
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FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIN SINGLE DIMENSION ARRAYS 

I 
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FISHING 



Description 

This program produces a diary for the fisherman. It can interpret and 
print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, items 
from the data records. Supplemental items can be defined by indicating 
the number of items and their names in the first data record. Supple- 
mental items can then be read and printed in the same way as the 
standard items. 

Instructions for Use 

Prior to running the program, define the supplemental data items that 
you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

See the sample data. The first record defines supplemental items and 
their titles. Its form is: 

Number of items. Title 1, Title 2, etc. 
Diary items are then recorded in the following form: 

Month, Day, Species, Weight, Length, Lure, Place, 
Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all or selected items to be 
printed. 



10 CALL CLEAR 

20 REM FISHERMAN'S DIARY PROGRAM 

30 REM »««««»»«««»««»««»» DATA INITIALIZATION «»»*«»««««««««»«» 

40 K1=0 
SO M=1000 
60 DIM Q$(5) 
70 DIM H*<5) 
80 READ N 

90 IF N=0 THEN 130 
100 FOR K=l TO N 
110 READ H»(K> 
120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE"i "ITEMS < Y OR N )?" 

140 INPUT A» 

ISO IF A«="Y" THEN 330 

160 PRINT "SHALL WE SELECT BASED UPON I " 

170 PRINT "SPECIES (S>" 

180 PRINT "OR OTHER <0>?"| 

190 INPUT X2> 

200 IF X2»="S" THEN 310 
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210 PRINT "ENTER THE ITEM HEADINQ TO" i "SEARCH FOR" 

220 INPUT Xl» 

230 IF N=0 THEN 290 

240 FOR K=l TO N 

250 IF X1«<>H*(K)THEN 270 

260 K1°K 

270 NEXT K 

280 IF KlOO THEN 320 

290 PRINT "ITEM HEADINB NOT FOUND -"i"TRY A8AIN" 

300 GOTO 130 

310 X1*="SPECIES" 

320 PRINT "ENTER THE "|X1»;" TO PRINT" 
330 INPUT X« 

340 REM ««»»«»««»»»«»«*«««»««»» HEADINGS »»««««««««««««««««««««« 

330 PRINT 
360 PRINT 
370 PRINT 

380 PRINT "SPECIES" I TAB <9) I "WT" J TAB < 13) I "LEN" I TAB < 18) I "LURE"! 
390 IF N=0 THEN 430 
400 FOR K=l TO N 

410 PRINT TAB((K-l)«5-l-23)|H»(K)| 
420 NEXT K 
430 PRINT 

440 PRINT " " 

450 IF N°0 THEN 480 
460 FOR K=>1 TO N 
470 NEXT K 
480 PRINT 

490 IF A$="N" THEN 730 

500 REM t«»««»«»»»»«t«t«»*«»«««t««»t«««t**««»**«t»*«*««*«*«»«««« 
510 REM ««*»«»«t«tt««»»«» PRINT OF ALL ITEMS 
520 FOR 1=1 TO M 
530 READ F» 

540 IF F«="END" THEN 680 
550 READ M»,L,B« 
560 IF N=0 THEN 600 
570 FOR K=l TO N 
580 READ QtlK> 
590 NEXT K 

600 PRINT F«;TAB<9)|W$|TAB(12){L;TAB(18)|B«| 

610 IF N»0 THEN 650 

620 FOR Ksl TO N 

630 PRINT TAB(<K-l)»5+23)|Qf <K)| 

640 NEXT K 

650 PRINT 

660 NEXT I 

670 REM »«««««««»«*«t«*t4E««»««»»«»«*««t*»«»»««««««t«««t*«*«»t**« 
680 REM t«<»*»t««««*>|E>*« PROGAM TERMINATION POINT »«»««»«»«$«*« 

690 PRINT 
700 PRINT 
710 STOP 

720 REM ««»»»«««««»««««»»*«««««»«t**«««<**«««««*»«««*«**«**««*** 
730 REM «»««»«««»<««««««« PRINT SELECTED ITEMS »«»««»>«««*«<«««» 

740 FOR 1=1 TO M 
750 READ Ft 

760 IF F*="END" THEN 680 

770 READ W»,L,B« 

780 FOR K=l TO N 

790 IF N=0 THEN 810 

800 READ Q$(K) 

810 IF KlOO THEN 840 

820 X3«=F« 

830 GOTO 860 

840 IF KOKl THEN 860 

850 %Z*=^tiK> 

860 NEXT K 

870 IF X*<>X3* THEN 940 

880 PRINT F«|TAB(9) |W»|TAB(12>|L|TAB(18)|B*| 

890 IF N»0 THEN 930 
900 FOR J»l TO N 
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910 PRINT TAB{(J-l)«5+23>|a»(J)| 
920 NEXT J 
930 PRINT 
940 NEXT I 
950 GOTO 6B0 

960 REM «»»*«»«»«»**««««»«»*««»««»«««»«««»»»»»t»»»t««*t**««««»«» 
970 REM ««««««««««(« DATA FOR INITIALIZATION FOLLOWS »*««««»*»« 
980 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
990 DATA 1,L0C 

1000 REM ««»«»«»**«««»»«»»««»»»««»»»»»»»»«»««««»»»««»«««»$»«»««»» 

1010 DATA SM BASS, 3, 19. 5, WORM, LAKE 
1020 DATA LM BASS, 6, 23, WORM, POND 
1030 DATA SM BASS, 4-5, 21, LURE, BROOK 
1040 DATA SM BASS, 2, 18, WORM, LAKE 
1050 DATA END,,,, 



SPECIES WT LEN LURE LOG 



tRSS 3 

IRSS S 

iflSS 4-5 

IRSS 2 



il-' BBgR m% 



U 



WORM ^ 



SPECIES WT LEN LURE LDC 



SM BflSS 3 
lb SS§S 4-3 _ 
SM BRSS 2 1 



19.5 WORM LRKE 
21 LURE BRODK 
UORM LRKE 





MAJOR 


SYMBOL TABLE - FISHING 


I 


NAME 


DESCRIPTION 


I 


Kl 


COUNT INDICATOR 


I 


M 


MAXIMUM NUMBER OF DATA READS 


I 


Q%< ) 


SUPPLEMENTAL ITEMS TRANSACTION 


I 


H$( ) 


SUPPLEMENTAL ITEMS HEADING VALUE 


z 


N 


NUMBER OF SUPPLEMENTAL ITEMS 


I 


M$ 


MONTH 


I 


D 


DAY IN 


I 


Ft 


SPECIES 


I 


U$ 


WEIGHT 


I 


L 


LENGTH 


I 


B$ 


LURE USED 


I 


Pt 


LOCATION 


I 


X2« 


STANDARD ITEM TO SELECT 


I 


Xlf 


SUPPLEMENTAL HEADING TO SEARCH 


I 


X$ 


VALUE OF ITEM TO SELECT 



I 
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FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM SINGLE DIMENSION ARRAYS 

I 
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PHOTOGRAPHY 

Description 

This program produces a diary for the photographer. It can interpret 
and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, items from 
the data records. Supplemental items can be defined by indicating the 
number of items and their names in the first data record. Supplemental 
items can then be read and printed in the same way as the standard items. 

Instructions for Use 

Prior to running the program, define ±e supplemental data items that 
you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

See the sample data. The first record defines supplemental items and 
their titles. Its form is: 

Number of items. Title 1, Title 2, etc. 

Diary items are then recorded in the following form: 

Picture number. Subject, Date, Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all, or selected, items to be 
printed. 



10 CALL CLEAR 

20 REM PHOTOGRAPHER'S DIARY PROGRAM 

30 REM »«»«»»»»*«»»«»»»«« DATA INITIALIZATION 

40 K1=0 

50 M=1000 

60 DIM Q$(5} 

70 DIM H*(S) 

80 READ N 

90 IF N=0 THEN 130 

100 FOR K=l TO N 

110 READ H$(K) 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF TFC"! "ITEMS < Y OR N )?•• 

140 INPUT A* 

ISO IF A«="Y" THEN 370 

160 PRINT "SHALL WE SELECT BASED UPON"! "PICTURE • <P) , SUBJECT <S),*| 

170 PRINT "OR OTHER (0)" 
180 INPUT X2« 
190 IF X2*="P" THEN 310 
200 IF X2*="S" THEN 330 

210 PRINT "ENTER THE ITEM HEADING TO"l "SEARCH FOR" 
220 INPUT Xl$ 
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230 IF N=0 THEN 290 

240 FOR K=l TO N 

250 IF Xl»<>H!><K)THEN 270 

260 KloK 

270 NEXT K 

280 IF KlOO THEN 340 

290 PRINT "ITEM HEADING NOT FOUND -"i-TRY AGAIN" 

300 GOTO 130 

310 X1«="PICTURE #" 

320 GOTO 340 

330 Xl^s-SUBJECT" 

340 PRINT "ENTER THE VALUE OF "jXl*!" TO PRINT" 
330 INPUT X» 

360 REM «««»««««*»«««»«««»*«*«» HEADINGS ««««««t«*»t««««««*««««» 

370 PRINT 
380 PRINT 
390 PRINT 

400 PRINT "PICT#"|TAB<7)|"SUBJECT"|TAB<15)|"DATE"i 
410 IF N=0 THEN 430 
420 FOR Kal TO N 

430 PRINT TAB<(K-1)«4+20>|H$(K)| 
440 NEXT K 
430 PRINT 

460 PRINT " " 

470 IF N=0 THEN 510 
480 FOR K°l TO N 
490 REM 
SOO NEXT K 
510 PRINT 

520 IF A«=i'"N" THEN 760 

530 REM ««»»««»««»»tt«»«««««««««»»t««*»<*««*««tt«««t«««««*»«tt«« 
540 REM «t»«<*««»«t«»t«<« PRINT OF ALL ITEMS «t«t<«««««*<««««tt 

550 FOR 1=1 TO M 
560 READ Pt 

570 IF P«="END" THEN 710 

580 READ S%fD* 

590 IF N°0 THEN 630 

600 FOR K°l TO N 

610 READ Q»(K> 

620 NEXT K 

630 PRINT Pt|TAB(6)|S«|TAB(14>|D«| 

640 IF N»0 THEN 680 

650 FOR K=l TO N 

660 PRINT TAB((K-1)«4+20)|Q»(K)| 

670 NEXT K 

680 PRINT 

690 NEXT I 

700 REM t«»t«««««««««»«««»»«»»«t«««t««ttt«*t*t««*t«*«»t«mt«««« 
710 REM t««««»tE««*t«*»««« PR06AM TERMINATION POINT «t««««*««««*t 

720 PRINT 
730 PRINT 
740 STOP 

750 REM t«*««*****»«««««*«««»«««»*««***«*«<«*«»**t«t*t«»«««t«t«« 
760 REM «*««*»<««««««(»»« PRINT SELECTED ITEMS «<*«<«««»««««**»« 

770 FOR 1=1 TO M 
780 READ P» 

790 IF P$="END" THEN 710 

800 READ S$,D» 

810 FOR K«=l TO N 

820 IF NsO THEN 840 

830 READ Qe(K) 

840 IF KlOO THEN 900 

850 IF X2«<>"P" THEN 880 

860 X3««P» 

870 GOTO 920 

880 X3««S!> 

890 GOTO 920 

900 IF KOKl THEN 920 

910 X3<°a$(K) 

920 NEXT K 
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930 IF X*<>X3* THEN 1000 

940 PRINT P«;TAB(6);S«|TAB(14)|Dt| 

950 IF N=0 THEN 990 

960 FOR J»l TO N 

970 PRINT TAB<<J-l)«4+20)|a«<J)| 

980 NEXT J 

990 PRINT 

1000 NEXT I 

1010 GOTO 710 

1020 REM »«»»«»|c««««»«««t«»«»»«»«$«»»«t««»»«t*t»««»«f *$*«**«»»««« 
1030 REM «»»»«»«««»»» DATA FOR INITIALIZATION FOLLOWS «*«««»««*« 
1040 REM ENTER NUMBER OF OIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
lOSO DATA 2, EXP, TIME 

1060 REM »»«««»««««»«»««**»»««««««»»t««»»«««t«tt**«««»«<««»t««t«» 

1070 DATA 100, HORSES, JUL l,F8,l/32 
1080 DATA 101, DOGS, JUL 2, Fl 1,1 /SOO 
1090 DATA 102, CHICKENS, JUL 3,F22, 1/12S 
1100 DATA 103, HORSES, JUL 10,F22,1/12S 
1110 DATA END,,,, 




PICT# SUBJECT DATE EXP TIME 





i^SigH^P§R'^^" HERDING TO 

2 TIME 

^NTER^THg VRLUE OF TIME 




PICTtt SUBJECT DRTE EXP TIME 



102 CHICKENSJUL 3 F22 1/'125 

103 HORSES JUL 10F22 I/12S 



MAJOR SYMBOL TABLE - PHOTOGRAPHY 

I 

I NAME DESCRIPTION 

I 

I Kl COUNT INDICATOR 

I H ** MAXIMUM NUMBER OF DATA READS 

I Q*< ) SUPPLEMENTAL ITEMS - VALUE IN 

I H*< ) SUPPLEMENTAL ITEMS - HEADING VALUES 

I P$ PICTURE NAME/flUMBER 

I S$ •* SUBJECT 

I •* DATE 

I X2« STANDARD ITEM TO SEARCH 

I XI* SUPPLEMENTAL ITEM TO SEARCH 

I X» VALUE OF ITEM TO SELECT 

IN NUMBER OF SUPPLEMENTAL ITEMS 

I 
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FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM SINGLE DIMENSION ARRAYS 

I 
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GREENHOUSE 

Description 

This program produces a diary for the horticulturist's greenhouse. It 
can interpret and print all items that the user wants to record for later 
analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defmed by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 
want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

See the sample data. The first record defines supplemental items and 
their titles. Its form is: 

Number of items. Title 1, Title 2, etc. 

Diary items are then recorded in the following form: 

Plant name. Container number. Date, Supplemental value 1, etc. 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



10 CALL CLEAR 

20 REM HORTICULTURIST'S DIARY PROGRAM 

30 REM «»«»«««««»«««««»«« DATA INITIALIZATION «**«t«»«t«««»<«*» 

40 K1=0 

50 M=1000 

60 DIM Q»(5) 

70 DIM H*<3) 

80 READ N 

90 IF N=0 THEN 130 

100 FOR K«l TO N 

110 READ H«(K> 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE" i "ITEMS < Y OR N )7" 

140 INPUT A» 

150 IF A»="Y" THEN 370 

160 PRINT "SHALL WE SELECT BASED UP0N"i "PLANT NAME <P), NUMBER <N),"| 

170 PRINT "OR OTHER <0) " 

180 INPUT X2« 

190 IF X2*="P" THEN 310 

200 IF X2*="N" THEN 330 
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210 PRINT "ENTER THE ITEM HEADING TO"i "SEARCH FOR" 

220 INPUT Xl^ 

230 IF N=0 THEN 290 

240 FOR K=l TO N 

230 IF X1»<>H»<K)THEN 270 

260 K1=K 

270 NEXT K 

280 IF KlOO THEN 340 

290 PRINT "ITEM HEADINB NOT FOUND -"i"TRY AGAIN" 

300 GOTO 130 

310 XI ♦""PLANT NAME" 

320 GOTO 340 

330 X1»="NUMBER" 

340 PRINT "ENTER THE VALUE OF "|X1«|" TO PRINT" 
330 INPUT X* 

360 REM »*»««»«»««««»««««««»««» HEADINGS $»»t*«««»««»««t«««*»t«t 

370 PRINT 
380 PRINT 
390 PRINT 

400 PRINT "PLANT" I TAB <9) I "NBR" I TAB (13) I "DATE" I 

410 IF N»0 THEN 430 

420 FOR K»l TO N 

430 PRINT TAB((K-l)*6-i-19)|H»<K)| 

440 NEXT K 

430 PRINT 

460 PRINT " • 

470 IF N«0 THEN 310 
480 FOR K°l TO N 
490 REM 
300 NEXT 1^ 
310 PRINT 

320 IF A<="N" THEN 760 

330 REM ««»««»«»*»»t«««*»««««t««t««t«**|c*t>»»««t*«««t««t«tt»t«»|[ 
340 REM t<«»**t««*»««»««« PRINT OF ALL ITEMS ««*««««t*«»*»««t«t 

330 FOR 1=1 TO M 
560 READ Pt 

370 IF P<»"END" THEN 710 

380 READ Nt,D» 

590 IF N»0 THEN 630 

600 FOR K»l TO N 

610 READ Q«(K) 

620 NEXT K 

630 PRINT Pe;TAB<9);N»|TAB(12>jD»| 
640 IF N=0 THEN 680 
650 FOR K=l TO N 

660 PRINT TAB((K-l)<6-M9)|Qt(K)| 
670 NEXT K 
680 PRINT 
690 NEXT I 

700 REM «««»«««»««««««««|c**«»««*«»«t»«»««*»«f«t»««»«t«««»*«««»«« 
710 REM «««*»»»««»«««»(»« PRQGAM TERMINATION POINT «*»«»»««««««« 

720 PRINT 
730 PRINT 
740 STOP 

750 REM «««««««««»«««««**«««««««««»««*«»«««»»»««»«««««»«*»««t«tt 
760 REM «t<«««««««<t<*»«« PRINT SELECTED ITEMS ««t«««««*««««t*«t 

770 FOR 1=1 TO M 
780 READ P% 

790 IF P«=»"END" THEN 710 

800 READ N%,D* 

810 FOR Ksl TO N 

820 IF N»0 THEN 840 

830 READ Q«(K) 

840 IF KlOO THEN 900 

BSO IF X2«<>"P" THEN 880 

860 X3$°P$ 

870 GOTO 920 

880 X3«»N» 

890 GOTO 920 

900 IF KOKl THEN 920 
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910 X3«-Q«(K) 
920 NEXT K 

930 IF X«<>X3« THEN 1000 

940 PRINT P*;TAB<9);N*|TAB(12);D*» 

950 IF N=0 THEN 990 

960 FOR J=l TO N 

970 PRINT TAB(<J-l)«6-fl9);Q«(J)| 
980 NEXT J 
990 PRINT 
1000 NEXT I 
1010 GOTO 710 

1020 REM **«*«»«»«»««»«»«««»««»«»»4t«t«««»»«t»«»«*««*««»»«»«»««*«« 
1030 REM «»»««»»««««« DATA FOR INITIALIZATION FOLLOWS ««««»»«*«« 
1040 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
1050 DATA 2, WATER, SOIL 

1060 REM ««»«««««»»««»«*«**«»«««««*««««»»»«««»«««»«««««»«»»««*««« 

1070 DATA LETTUCE, 1, APR 15, DAILY, SAND 
1080 DATA LETTUCE, 2, APR 15, DAILY, LOAM 
1090 DATA LETTUCE, 3, APR 16, WEEK, LOAM 
1100 DATA CABBAGE, 4, APR 17, WEEK, SAND 
1110 DATA END,,,, 



PLfiNT 



NBR DATE UfiTER SOIL 



LETTUCE 
LETTUCE 
LETTUCE 
CABBR6E 



APR 
APR 
APR 
APR 



15 
1 5 
1 6 
17 



DAILY 
DAILY 
WEEK 
UEEK 



SAND 
SAND 



SHALL WE^SELECT BASED UPON 



2 □ 



pS|gH^P§R^^^" TO 

^tPPrin! ^'^'-^^ °^ 

? LOAM 



PLANT 



NBR DATE WATER SOIL 



LETTUCE 
LETTU 



CE 



APR 15 DAILY LOAM 
APR 16 WEEK LOAM 



MAJOR 

I 

I NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



SYMBOL TABLE - GREENHOUSE 
DESCRIPTION 



Kl 
M 

0«( > 
H$( > 
P» 
Nf 
0$ 
X2% 
Xl$ 
X$ 
N 



COUNT INDICATOR 
MAXIMUM NUMBER OF DATA READS 
SUPPLEMENTAL ITEMS - VALUE IN 
SUPPLEMENTAL ITEMS - HEADING VALUES 
PLANT NAME 

PLANT/CONTAINER NUMBER 
DATE PLANTED 
STANDARD ITEM TO SEARCH 
SUPPLEMENTAL ITEM TO SEARCH 
VALUE OF ITEM TO SELECT 
NUMBER OF SUPPLEMENTAL ITEMS 
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FUNCTIONS USED 

I 

I NAME DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I DIM SINGLE DIMENSION ARRAYS 

I 
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CB RADIO 



Description 

This program produces a diary (log) for the CB operator. It can interpret 
and print all items that the user wants to record in the log. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defined by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 
want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

See example data. The first record defines supplemental items and their 
titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary (log) items are then entered in the following form: 
Handle, Call letters, Channel monitored, Supplemental value 1, etc. 

Output Description 

See example output. Print options allow all, or selected, records to be 
printed. 



10 CALL CLEAR 

20 REM CB RADIO OPERATOR'S DIARY 

30 REM «««*«»««»»<«»»»<«» DATA INITIALIZATION »>»»««t»*««»t««»« 

40 K1»0 

SO M=1000 

60 DIM Q!»(5) 

70 DIM H«(5) 

80 READ N 

90 IF N=0 THEN 130 

100 FOR K»l TO N 

110 READ H»(K> 

120 NEXT K 

130 PRINT "SHALL X PRINT ALL OF THE"« "ITEMS < Y OR N )?" 

140 INPUT A» 

130 IF AiB>="Y" THEN 430 

160 PRINT "SHALL WE SELECT BASED UPONi" 

170 PRINT "HANDLE <H> " 

180 PRINT "CALL LETTERS <L) " 

190 PRINT "CHANNEL (C) " 

200 PRINT "OR OTHER (0)7"| 

210 INPUT X2« 

220 IF X2»»"H" THEN 3S0 
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230 IF X2«=''L'' THEN 370 
240 IF X2»="C" THEN 390 

250 PRINT "ENTER THE ITEM HEADINS TO" « "SEARCH FOR" 

260 INPUT Xl» 

270 IF N=0 THEN 330 

260 FOR K°l TO N 

290 IF X1»<>H»(K)THEN 310 

300 K1°K 

510 NEXT K 

320 IF KlOO THEN 400 

330 PRINT "ITEM HEADING NOT FOUND -"|-TRY AGAIN" 

340 GOTO 130 

330 Xl«o"HANDEL" 

360 GOTO 400 

370 Xl»a"CALL LETTERS" 

360 GOTO 400 

390 Xlt»"CHANNEL" 

400 PRINT "ENTER THE "|Xlt|" TO PRINT" 
410 INPUT X« 

420 REM ««»t«t««»«««*««tt»«««<« HEADINGS «*»t«*«««t«*t*«t««t««»« 

430 PRINT 
440 PRINT 
450 PRINT 

460 PRINT "HANDLE" | TAB < 10) | "LETTERS" j TAB < 16) T'CH" | 

470 IF N=0 THEN 310 

480 FOR K=l TO N 

490 PRINT TAB(<K-l)*5+21)|H»(K) I 

500 NEXT K 

510 PRINT 

520 PRINT " " 

530 IF N=0 THEN 570 
540 FOR K=l TO N 
550 REM 
560 NEXT K 
570 PRINT 

580 IF At=»"N" THEN 820 

590 REM t»t«*«««»««»<«t«>*««*««»>*«*«««t«»«*««»««f ««**«**«»>««»* 
600 REM ««««««««>««<««»*« PRINT OF ALL ITEMS *»««*»««»*«»«»««««« 

610 FOR I°l TO M 
620 READ P« 

630 IF P»a"END" THEN 770 

640 READ L$,C« 

650 IF N=0 THEN 690 

660 FOR Kal TO N 

670 READ Q«(K) 

660 NEXT K 

690 PRINT P«|TAB(10)|Lt|TAB(18)|Ct| 

700 IF N»0 THEN 740 

710 FOR K=l TO N 

720 PRINT TAB((K-l)«2-i-21)|Q>(K)i 

730 NEXT K 

740 PRINT 

750 NEXT I 

760 REM >«<t»«»»«*t*«««»***«««**«*«*«<t««t«««<«t*t«««««»««tm» 
770 REM «<««»«<«««<»*»»« PROGAM TERMINATION POINT t*««»*««t««<« 

760 PRINT 
790 PRINT 
800 STOP 

810 REM »«»««»«««««*«»«»«»«»««««t***t»«»««<««««*tt««««t»«*»«»««t 
820 REM ««*«««»«»«««$*««« PRINT SELECTED ITEMS *««<«»««««««*««* 

830 FOR lal TO N 
840 READ P» 

850 IF P«="END" THEN 770 
860 READ L%,C% 
870 FOR K=l TO N 
880 IF N«0 THEN 900 
890 READ Q«(K) 
900 IF KlOO THEN 990 
910 IF X2«<>"L" THEN 940 
920 X3t»L» 
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930 GOTO 1010 

940 IF X2*<>"H" THEN 970 

950 X3«=P* 

960 GOTO 1010 

970 X3*=C« 

980 GOTO 1010 

990 IF KOKl THEN 1010 

1000 X3«°Q«(K) 

1010 NEXT K 

1020 IF X»<>X3» THEN 1090 

1030 PRINT P«|TAB(10>|L$;TAB(18>|C«| 

1040 IF N=0 THEN 1080 

1050 FDR Jal TO N 

1060 PRINT TAB((J-l)«2-i-21>;Q$(J)| 

1070 NEXT J 

1080 PRINT 

1090 NEXT I 

1100 GOTO 770 

1 1 10 REM *»»«»«**«t:»«««««t««*»«t*«»»t«t*«««t»««t»«««««««**««mt« 
1120 REM *«»»««»»«»«« DATA FOR INITIALIZATION FOLLOWS <««««*««»« 
1130 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEA0IN88 FIRST 
1140 DATA 1,TELE 

1 150 REM ««*»««»«»*««««»«««»««*««*»«»»«»»««»««««»t»m«*»»»*»««*» 

U60 DATA GRANNY, KTX9999, 5, 633-7777 
1170 DATA HORSEMAN, KTXl 11 1,7, 333-1 100 
1180 DATA FISHBAIT,KAAZ 11 1,40, 333-1983 
1190 DATA MONKEY, KPR0123, 92, 224-1234 
1200 DATA END,,,, 



>RUN 
SHALL 1 
ITEMS < 
? Y 



HANDLE 



LETTERS CH TELE 




>RUN 

fy^bb I CRiyT^RLL OF THE 
ITEMS C Y OR N >? 
2,.N 




CALL LETTERS <L> 
CHANNEL <C> 
□R, OTHER <□>?? C 
ENTER THE CHANNEL TO PRINT 



HANDLE 



LETTERS CH TELE 



FISHBAIT KAA2111 40 333-1983 
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MAJOR SYMBOL TABLE - CB RADIO 



NAME 




DESCRIPTION 


Kl 




CnUNT INDICATOR 


M 

n 


* * 


MAXIMUM NUMBER OF DATA READS 


vlw\ f 


• * 


CliPPI PMPMTi^l TTPMQ — UAI IIP TN 


H^< > 


• • 


SUPPLEMENTAL ITEMS - HEADING VALUES . 


Hl$ 


• • 


HANDLE 


Lf 


• • 


CALL LETTERS 


C$ 


• • 


CHANNEL 


X2$ 


• • 


STANDARD ITEM TO SEARCH 


Xl$ 


* • 


SUPPLEMENTAL ITEM TO SEARCH 


X$ 


* • 


VALUE OF ITEM TO SELECT 


N 


• • 


NUMBER OF SUPPLEMENTAL ITEMS 


FUNCTIONS USED 


NAME 


• * 


DESCRIPTION 


TAB 


• • 


FORMATS PRINT LINES 


DIM 


• • 


SINGLE DIMENSION ARRAYS 
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BOWLING 



Description 

This program produces a diary for the bowling enthusiast. It can inter- 
pret and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defined by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 
want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 
Data Formats 

The first record defines supplemental items and their titles. See the 
sample data. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then entered in the following form: 

Date, Location, Number of games, Score 1, Score 2, . . . , 
Supplemental items 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



10 CALL CLEAR 

20 REM BOWLER'S DIARY PROGRAM 

5S S?"^ »«*«***«««*«*»«*«» DATA INITIALIZATION »»»»»»«»»«««»»««« 

50 M=1000 
60 DIM S*<3) 
70 DIM H*<S) 
80 READ N 

90 IF N=0 THEN 130 
100 FOR K=l TO N 
110 READ H$(K> 
120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE"« "ITEMS < Y OR N )?" 

140 INPUT A» 

150 IF A«="Y" THEN 330 

170 INPUT xlT^^ SELECT BASED UPON" i "LANES <L) OR OTHER <0)?" 
180 IF X2$="L" THEN 290 

190 PRINT "ENTER THE ITEM HEADING TO" i "SEARCH FOR" 

200 INPUT XI* 

210 IF N^O THEN 270 
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220 FOR K=l TO N 

230 IF X1$<>H$(K)THEN 250 

240 K1=K 

250 NEXT K 

260 IF KlOO THEN 300 

270 PRINT "ITEM HEADINS NOT FOUND --i"TRY AGAIN" 
280 GOTO 130 
290 X1$="LANES" 

300 PRINT "ENTER THE VALUE OF "|Xl$j" TO PRINT" 
310 INPUT X* 

320 REM $»«««»»«»«»«»««««*«»««« HEADINGS «»«««««»«««««««»««««*«« 

330 PRINT 
340 PRINT 
350 PRINT 

360 PRINT "LANES" ; TAB < 13) I "GAMES/ AVG" I 
370 REM 

380 IF N=0 THEN 420 

390 FOR K=l TO N 

400 PRINT TAB<(K-1)«2+23)|H«<K)| 

410 NEXT K 

420 PRINT 

430 PRINT " 

440 REM 

450 IF N=0 THEN 490 
460 FOR K=l TO N 
470 REM 
480 NEXT K 
490 PRINT 

500 IF A*o"N" THEN 840 

510 REM »«***»»«»«*»t«««»»»««»»*««««««««»«*«*»«»»«««*««*«t«««*«« 
520 REM »«*««»»«*«««*««*« PRINT OF ALL ITEMS »*»»»»«*««»«««*««« 

530 FOR 1=1 TO M 
540 READ L* 

550 IF L*="END" THEN 790 

560 READ G 

570 FOR K=l TO Q 

580 READ R(K) 

590 R(G+1)=R(G+1)+R(K) 

600 NEXT K 

610 R(Q+l)=INT((R(G+l)/Q)+.5) 
620 IF N=0 THEN 660 
630 FOR K=l TO N 
640 READ S$(K) 
650 NEXT K 

660 PRINT L$}TAB(13);Gi 
670 REM 
680 REM 
690 REM 

700 PRINT TAB<17);R<G+1)| 

710 R(6+l)=0 

720 IF N=0 THEN 760 

730 FOR K=l TO N 

740 PRINT TAB((K-l)»2+22) jS»(K>| 

750 NEXT K 

760 PRINT 

770 NEXT I 

780 REM «»«»»»««*»»««»»««*««**»««**««««*««»**»««**«*«»««***<*«*« 
790 REM «*»»*»«««»»«»»»»» PROGAM TERMINATION POINT «««»»»««*«»»» 

800 PRINT 
810 PRINT 
820 STOP 

830 REM »««»«»»«»«**«««««««»««*«*««««««««**»««»«»«****«*«««**»*« 
840 REM «««*«««««»»»»«»«$ PRINT SELECTED ITEMS »««««»»»«»»««»»«» 

850 FOR 1=1 TO M 
860 R(S+1)=0 
870 READ L$ 

880 IF Le="END" THEN 790 

890 READ 6 

900 FOR J=l TO 6 

910 READ R(J> 
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920 R<e+l)=R(Q+l)+R(J) 
930 NEXT J 

940 R(6-H)=INT( (R(B+l)/B)+.5) 

930 FOR K=l TO N 

960 IF N=0 THEN 980 

970 READ S*(K) 

980 IF KlOO THEN 1010 

990 X3*=L» 

1000 GOTO 1030 

1010 IF KOKl THEN 1030 

1020 X3*=S*<K) 

1030 NEXT K 

1040 IF X«<>X3« THEN IISO 
1050 PRINT L*;TAB(13) J6; 
1060 REM 
1070 REM 
1080 REM 

1090 PRINT TAB((G-l)-t-15};R<G-«-l){ 
1100 IF N=0 THEN 1140 
1110 FOR J=l TO N 

1120 PRINT TAB{<J-l)«2+22>jS»<J>| 
1130 NEXT J 
1140 PRINT 
1150 NEXT I 
1160 GOTO 790 

1 170 REM «»«»«««««»»»«»«««*«»«»»«««««««»»t«<**»«««»««»»«»«««»*»«» 
1180 REM «««««*»««»»« DATA FOR INITIALIZATION FOLLOWS »««»«««»»« 
1190 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
1200 DATA 1,DATE 

1210 REM *»«««»«»**«««»*»»««»»»«»««««»»»*»«»««»««»«(»»«»»««»««»«» 

1220 DATA HIGHWAY BOWL, 3, 100, 101, 134, JUN 1 
1230 DATA UPTOWN LANES, 3, 105, 150, 123, JUN 8 
1240 DATA HIGHWAY BOWL, 2, 120, 131, JUN IS 
1250 DATA UPTOWN LANES, 3, 121, 131, 142, JUN 22 
1260 DATA END,,,, 



>RUN 
SHALL I 

it|ms < 



LANES 



SAMES/'AVG DATE 




1 



131 





LANES 



6AMESXAV6 DATE 



HIGHWAY BOWL 3 112 JUN 1 
HIGHWAY BOWL 2 187 JUN 15 



288 Tl BASIC Computer Programs for the Home 



MAJOR SYMBOL TABLE - BOULING 

I 

I NAME DESCRIPTION 

I 

I Kl COUNT INDICATOR 

I M MAXIMUM NUMBER OF DATA READS 

I R( > RESULTS (SCORE) ARRAY 

I S$< ) SUPPLEMENTAL ITEMS -VALUES 

I H$< ) SUPPLEMENTAL ITEMS - HEADING NAMES 

I X2* STANDARD ITEM TO SEARCH 

I Xl» SUPPLEMENTAL ITEM TO SEARCH 

IX* VALUE OF ITEM TO SELECT 

I D$ DATE 

I L» LANES 

10 •* NUMBER OF GAMES 

I 

FUNCTIONS USED 

I 

I NAME *• DESCRIPTION 

I 

I TAB FORMATS PRINT LINES 

I INT CONVERTS NUMBER TO INTEGER 

I DIM SINGLE DIMENSION ARRAY 

I 
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GENERAL PURPOSE DIARY 



Description 

This program provides a general purpose diary that can be used for re- 
cording many different activities. It can interpret and print all items 
that the user wants to record. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. All items contained in the data records are defined by indicating 
the number of items and their names in the first data record. These 
items can then be read and prmted as if they had origmally been pro- 
grammed for. 

Instructions for Use 

Determine the items to be recorded in the records. Enter the diary 
items as they occur. 

Data Entry 

All DATA is entered by means of DATA statements. 
Data Formats 

See the sample data. The first record defines the number of items and 
their titles. Its form is: 

Number of items, Title 1, Title 2, etc. 

Diary items are then entered using ±e following form: 

Value 1, Value 2, etc. 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



10 CALL CLEAR 

20 REM GENERAL PURPOSE DIARY PROQRAH 

30 REM »«««««»«»»««»«»«»»« DATA INITIALIZATION »««««<$««««««««« 

40 M=1000 
SO DIM S$<10> 
60 DIM H$<10) 
70 READ N 

80 IF N=0 THEN 310 
90 FOR K«=l TO N 
100 READ H$(K) 
110 NEXT K 

120 PRINT "SHALL I PRINT ALL OF THE"l "ITEMS <Y OR N>"i 

130 INPUT A* 

140 IF A*="Y" THEN 260 

150 PRINT "ENTER THE ITEM TO SEARCH" 

160 INPUT Xl» 

170 FOR K=l TO N 

180 IF X1«<>H«(K)THEN 200 

190 K1=K 
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200 NEXT K 

210 IF KlOO THEN 240 

220 PRINT "ITEM HEADING NOT FOUND -"«"TRY AGAIN" 
230 GOTO 120 

240 PRINT "ENTER THE VALUE OF "|Xl*|" TO PRINT" 

250 INPUT X» 

260 PRINT 

270 PRINT 

280 PRINT 

290 FOR K"! TO N 

300 PRINT TAB((K-l)»8-H)|H$<K)f 

310 NEXT K 

320 PRINT 

330 REM 

340 PRINT " " 

350 REM 
360 PRINT 

370 IF At""N" THEN 560 

380 REM ««««»«««»««»»«*«««»**«««t«*t«m«««««»>t»»t>««tt«««*«««t 
390 REM t««««*«««t*««*»««<« PRINT OF ALL ITEMS »««««««»«»«»««*»> 

400 FOR 1=1 TO M 

410 FOR K=l TO N 

420 READ S«(K) 

430 IF S»(1>B"END'* THEN SIO 

440 NEXT K 

450 FOR K"l TO N 

460 PRINT TAB((K-l)«8-»-l)|8«(K)| 

470 NEXT K 

480 PRINT 

490 NEXT I 

500 REM t««»««**»*«**t*«»«*««t<»««««t«****«««««*t*«t«««»t«tmtt 
510 REM »«<«»«*««««<«>«* PROGRAM TERMINATION POINT «»»$««««««<« 

520 PRINT 
530 PRINT 
540 STOP 

550 REM ««»t««««««««t«»<««**««««t«m«tm««««»«*««»tt»«t«»«t««« 

560 REM «««*»»««»»»««««»« PRINT OF SELECTED ITEMS «$««»»«««<»« 

570 FOR 1=1 TO M 

580 FOR K=l TO N 

590 READ 8e(K) 

600 IF St(l)a"END'' THEN 910 

610 IF KOKl THEN 670 

620 IF X$<>8»(K>THEN 670 

630 FOR J=l TO N 

640 PRINT TAB<(J-l)«8-t-l)|S$(J)| 

650 NEXT J 

660 PRINT 

670 NEXT K 

680 NEXT I 

690 GOTO 510 

700 REM «««t«««»*«««**«t«t»»«**««»«t*«*««««t«««t««»*tt«tt««»«m 
710 REM «*«*«««««»««« DATA FOR INITIALIZATION FOLLOWS ««»««*««t« 
720 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS FIRST 
730 DATA 4, DATE, COURSE, WIND, PTS 
740 DATA JUL 1, LINCOLN, NONE, 77 
750 DATA JUL 3,CUMD. ,MED,80 
760 DATA JUL 6, HI-VIEW, HIGH, 85 
770 DATA JUL 8, LINCOLN, LOW, 82 
780 DATA END,,, 



^SHflLL I^PglNT RLL OF T 
ITEMS <Y OR N>? V 



DATE 



COURSE 



UIND 



PTS 
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iNJgg |HE ITEM TD SERRCH 

^yjER^TRE VRLUE DF CDURSE 
_TQ PRINT 
? CUMB. 



DATE CDURSE WIND PTS 

JUL 3 CUMB. NONE 77 



MAJOR SYHBOL TABLE - GENERAL PURPOSE DIARY 

I 

I NAME 



DESCRIPTION 



K 
N 

S$( > 
H$< > 
N 

Xl$ 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

VALUE OF ITEMS 

HEADINGS OF ITEMS 

NUMBER OF ITEMS RECORDED FOR EACH TRANSACTIONS 

ITEM TO SEARCH 

VALUE OF ITEM TO SELECT 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 
I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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TI BASIC 
iputer programs 

for the Itoe 

Charles Di Sternbei^ 



Here's a comprehensive book of practical home appUcation 
programs that will be helpful to the novice or experienced 
owner in increasing the usefulness of the Texas Instruments 
TI-99/4A home computer Each program is documented with 
a description of its functions and operation, a listing in TI 
BASIC, a symbol table, sample data, and one or more output 
samples. Programs included are: Home Financial Programs; 
Automobile Related Programs; Kitchen Helpmates; 
Scheduling Programs for Home Use; List Programs for Every 
Purpose; Miscellaneous Programs for the Home; Tutorial 
Programs for Home Use; Conversion Programs; Recreational 
Programs; and Hobbyist's Diaries. 



Don Inman, Ramon Zamora, and Bob Albrecht 

Here's a comprehensive work, written by three of the foremost 
microcomputer programming experts in the cotmtry, that will 
teach you all about BASIC for use with the Texas Instruments 
home computer. Even if you've never worked with a computer, 
you can now teach yourself how to use, program, and enjoy the 
TI home computer with this entertaining and easy-to-read 
work. The authors have carefully constructed it so that you 
will soon be writing BASIC programs and exploiting all of the 
excellent features of the TI machines. Its 14 chapters and 
Appendices cover all of the essential programming statements 
and machine features. #5185-9, paper, 320 pages 



Another Book of Interest . . . 



INTRODUCTION TO TI BASIC 



HAYDEN BOOK COMPANY INC. 



Hasbro uck Heights, New Jersey 
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